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$ 1 MODULE TAPEUTIL (ZTITLE Magtape Utility Routines’ 

: ¢ {DENT = *v04-000' 

ae BEGIN 

3 5 } ; 

: § 1 i eeeneeerererreerereeeereeererereeeeeeeeeeeeeeereereeedenteeeeeenenereedareee 
3 1 !e * 
; § 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
3 10 10 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
3 1} a} ' - ALL RIGHTS RESERVED. : 
: i ig 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 14 14 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE & 
nb) 15 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 B98 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 17 001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 + pois ' be TRANSFERRED. . 
3 'e 

: 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
HY 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 3 00g 1 fs CORPORATION. ‘ 
; 34 0024 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
: ; + 5 ; ™ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
. os 

; $$ 00 $ 1 ie 4 
: 28 tvs: MCP P STS T TPT TTP PEPE eT errr irri i iii titi iti iii titi ti iitiitit iii iti tt 
: 9 0099 @. 

; 0 0030 1 

; 1 0031 1 !+4¢ 

; 4 O03¢ 1! FACILITY: 

3 0035 1! Backup/Restore 

3 4 0034 1! 

3 5 B083 : ABSTRACT: 

; 7 0037 1: This module contains routines to do the I/0 involved in writing 

3 $ 0038 1! save sets. 

3 9 ite Zz 

3 40 0 1 ! ENVIRONMENT: 

; (41 0041 1! 

s 6 R066 1! VAX/VMS user mode 

; 4 04 1! 

2 bee Ble 

; 4 0046 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 17-Sep-1980 21:41 

: 48 8 i MODIFIED BY: 

; 650 50 1: v03-004 LY0457 Larry Yetto 1-FEB-1984 10:18 

: 5 23 ' : Make restore operation restartable 

; ‘ 3g 1 v03-003 ACGO315 Andrew C. Goldstein 10-Feb-1983 23:41 

: $3 34 ; Allow Label reader to pass bad blocks 

: 56 36 1/ v03-002 ACGO311 Andrew C. Goldstein,  4=Feb-1983 11:23 

5; OV 0057 1! Require YES reply to BACKUP's mount messages. 


sessessess 
ESREPReRRERS teeta states 


SSssss 
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os 
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Also display operator interaction in batch log. 


v03-001 ACG0284 Andrew C. Goldstein, 9-Apr-1982 13:46 
Complete filtering of EOT status returns 


v02-011 ACG0257 Andrew C. Goldstein, 21-Jan-1982 18:38 
Support Lists of labels 


v02-010 ACG0256 Andrew C. Goldstein, 19-Jan-1982 21:19 
Add /PROTECTION and /OWNER qualifiers to save sets 


v02-009 MLJ0063 Martin L. Jack, 22-Dec-1981 3:01 
Use new SPUTMSG action routine. parameter. 


v02-008 sob ty artin L. Jack, 30-Nov-1981 14:03 
Prompt to OPCOM " and only if SYSSCOMMAND is not a terminal. 


v02-007 MLJ0043 Martin L. Jack, 8-Sep-1981 16:47 
Account for RMS logical device change. 


v02-006 ACG0216 Andrew C. Goldstein 4-Sep-1981 17:28 
Make SKIP_RECORD read if only one block 


vO2-005 MLJ0036 Martin L. Jack, 29-Aug-1981 16:19 
Implement operator assisted reel restart. 


v02-004 acesees Andrew C. Goldstein, 10-Jul-1981 13:33 
ake some errors continuable, fix error messages 


v02-003 mL_J0025 artin L. Jack, 88-May-1981 14:45 
Reorganize goat tfler database 
Make routines een: if sone thle. 


v02-002 mLJ0010 artin L. Jack, 25-Mar-1981 15:30 
Reorganize globat” storage. 


v02-001 MLJ0004 Martin L. Jack, 20-Feb-1981 2:10 
Implement operator assisted tape handling 


LIBRARY *SYSSLIBRARY: L1B*; 
REQUIRE *SRC$: COMMON’; 


—- 


JULIAR_DATE: —  NOVALUE, 
FORMAT pV QLOWNER : NOVALUE 


Julian date conversion 
Owner UIC and aroregsves format 


Whe 
| TAPEUTIL Magtape Utility Routines 16-0 Sep-1 AX-11 Bliss-32 V +10" 4 Pa 3 
“v06 . . fei 91 886s | Hench SAS tase Uti asset 9 623 
103 44 FORWARD pOvT ANE 
NOVALUE, ' Communicate with operator 
PUTAS ACTRTN_B, ! $PUTMSG action routine (GET_RESTART) 
1 RESTART: NOVALUE, ' Get restart option 
1 aH NSE CHA ' Read tape characteristic 
1 WRITE =HES SAGE i Communicate with $¥SSCOMMAND 
1 MOUNT _ME SSnck- : NOVALUE, ! issue mount request message 
1 READY— mabe 4 
1 SET_CRAR: NOVALUE, ' Set tape. Sn 
1 REWIND: NOVALUE, ' Rewind t 
1 Ones NOVALUE, ! Unload t aoe 
1 SKIP_T ' Skip files on tape 
1 SKIP “RECORD, i Skip records on tape 
READ = the Le ' Read Label from tape 
URITEST NOVALUE, ' Write tape mark on tape 
WRITES LABEL: NOVALUE, } Write label on tape 
! 
i 
i 
i 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MAKE _VOL OVALUE, Construct VOL! | 
MAKE _HDR1 NOVALUE, Construct HDR1 Label 
MAKE _HDR2 NOVALUE ; ! Construct HDR2 Label 


EXTERNAL_LITERAL 
BACKUPS_READYREAD 

CKUP$READYWRITE, 

BACKUPS =U TENABLE Re 


BACK RUPS- congee’? 


37 BACKUPS$_AB 
34 38 BACKUPS$_NOT 
35 39 BACKUPS_ LABELERR, 
36 40 BACKUPS_POSITERR; 
37 $ 
35 rk GSDEF INE(); ! Define global common area 
40 44 
4) 45 
ry | £6 BUILTIN 
4 4 CALLG; 


ce 


o 
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Riven OPCOM = communicate with OPCOM 1a-8ep-19 4 91:96:68 YBACKUP SRe TAPEUTIC 03951 . ( 
3; «61465 1 o8 1 ZSBTTL ‘OPCOM = communicate with OPCOM' 

3 4 : $3 : ROUTINE OPCOM (REPLY,MSGID,PARAM): NOVALUE= 

: 14 1251 1 144 

3 103 1 § 1! 

; 150 1 1 ! FUNCTIONAL DESCRIPTION: 

wer) 1254 1! This routine communicates with OPCOM to request tape handling if 
3 : ¢ : 5 : BACKUP is executing in a batch job. 

: 154 1 37 1 i INPUT PARAMETERS: 

; 155 1258 1! REPLY - Pointer to descriptor to receive reply. or 0 

3 128 1259 1! MSGID - Message identification 

3 120 : re : : PARAM... - FAO parameters required by the message 

: 159 1 64 1! IMPLICIT INPUTS: 

: 160 1265 1! NONE 

3 «6161 1264 1! 

; 16¢ 1265 1 ! OUTPUT PARAMETERS: 

; 16 1 96 1! NONE 

3 «164 1267 1! 

3; «6165 1268 1°! IMPLICIT OUTPUTS: 

: 166 1269 1! NONE 

: 167 1270 1! 

3; 168 1271 1 =! ROUTINE VALUE: 

: 169 1272 1! NONE 

3; 170 1275 1! 

s 71 12746 1 ! SIDE EFFECTS: 

: 17 1275 1! NONE 

> 17 1276 1! 

: 17% 1 6 1 ine 

.. ore 1278 #1 

3; 176 1279 BEGIN 

3; 177 1280 MAP. 

3: 178 1281 REPLY: REF BBLOCK; ! Pointer to reply descriptor 
3; 179 i Hf LOCAL 

; 180 128 ke ! Channel assigned to mailbox 
: 181 1284 STATUS, ' Status return 

; 136 1285 : VECTORCE4, WORD], ' 1/0 status block 

: 18 1 86 BUFFER_1 BBLOCK 361, i Message buffer 

> «(184 128 BUFFER_2 BBLOCK(256), ‘ Ressage buffer 

: 185 1288 ESC: VECTOR M ' Descriptor 

: 186 1289 DESC_2: vEecTorR(C2), ' Descriptor 

3; «187 1 K, ! Temporary counter 

: 188 ; 33 P; ! Temporary 

: 190 129 

3; «6191 1294 ' Create a mailbox to receive the reply. The protection on the mailbox is 
: 136 : 95 set to system RW, owner RWED for maximum safety. 

: 19% 1 39 STATUS = SCREMBX(CHAN=CHANNEL, PROMSK=%B'1111111100001100"); 

s 136 ’ 38 IF NOT .STATUS THEN SIGNAL (BACKUP$_OPERFAIL, 0, .STATUS); 

: 19 1 

; 198 1301 ! Get the message text. The BUFFEROVF or MSGNOTFND status return is 

3 1” : : considered fatal, since it should not occur. 

; $1 1 DESCLO) = 256; 


; 
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OPCOM = communicate with OPCOM 12-388- 


Desc] = BUFFER_1; 
STATUS = SGETMSGT 
MSGID=.MSGID, 
RSGLEN=DE SC 
BUF ADR=DESC); 
IF .STAT 


1984 01:06:44 AX-11 Bliss-32 V4.0-74 
198¢ tk 4:08 EBACKUP. SRE TAPEUTIL 03951 


vuvuvU 
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! Special case test to remove information ae a CRLF from the 
! formatted string. This allows the same message to be used in interactive 
and batch processing, but to have the prompt stripped away for batch. 


P = CHSFIND_CH(.DESC_2(0), .DESC_2C1), %0°015"); 
If .P NEQ O-THEN DESC_2(0) = .P = .DESC_2C1]; 


US NEQ S$$$_NORMAL 
: ; SIGNAL (BACKUPS_OPERFAIL, 0, .STATUS); 
1 1 
1 1 ! Use FAO to edit the message text. The gotten message is the control string, 
; \ : and the formatted message is placed in BUFFER_2. 
1 1 DESC_2[0] = 256 - SBYTEOFFSET(OPCSL_MS_TEXT); 
1 1 DESC $19 = BUFFER_2 + SBYTEOFFSET(OPCSL_MS_TEXT); 
1 ep $F AOL ( 
1 P CTRSTR=DESC, 
1 e af ae 44 
2 P OUTBUF=DESC 2, 
3 PRMLST=PARAM) ; 
2 
2 
2 
2 
2 


rrr 
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: Initialize OPCOM information at head of buffer. 


CHSFILL(O, SBYTEOFFSET(OPCSL_MS_ TEXT), BUFFER_2); 
BUFFER_2COPC$B_MS_TYPE) = OPCS Ra_RaST: 

BUFFER-2COPCS$B-MS- TARGET) = OPCSM"NM_CENTRL + OPCSM_NM_DEVICE + 
(IF {BBLOCREROSY SAVE -FABLFABSL DEVI, DEVSV_SQD7 


T 
ELSE OPCSM“NM~DISKS); 


a 
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: Send the message to OPCOM. 
DESC_ £0} = .DESC_2(0] + SBYTEOFFSET(OPCSL_MS_TEXT); 
DESC” 2C1) = BUFFER_2; 
STATOS = SSNDOPR( 
MSGBUF =DESC_2 
CHAN=. CHANNEL) ; 
If NOT .STATUS OR .STATUS EQL OPCS_NOPERATOR 


HEN 
SIGNAL (BACKUPS_OPERFAIL, 0, .STATUS); 


Yoru 2 OO NOP WN OOo ae 


WHILE TRUE DO 
BEGIN 


: Read the mailbox to get OPCOM's reply. 
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ZT 
e Utility Routines ibese 1984 01:06:44 AX-11 Bliss-32 v4 
= communicate with OPCOM 1a-8ep-19 4 or:8 :08 f ; 


STATUS = $0]0W( 
here a READVBLK, 


=, 
0SB=i0sB, 
1=BUFFER.1, 
2=136); 
TATUS THEN STATUS = .10SBL0); 
T .STATUS THEN SIGNAL(BACKUP$_OPERFAIL, 0, .STATUS); 


I s 
© 
oe 
NO 
} Sanity check the reply buffer. 

BUFFER {forces MS_TYPE] NEQ MSG$_OPREPLY OR 


“BUFFER 1COPCSL_-MS-RPLYID] NEQ 0 
SIGNAL (BACKUPS_OPERF AIL); 


! Display the reply text, and return it if requested. 
! Remove information following a CRLF from the reply buffer. This 
: is additional information returned by OPCOM. 
P = CHSFIND_CH(128, BUFFER_1COPCSL_MS_TEXT], %0°015"); 
IF .P EQL O' THEN P = BUFFER_1COPCSC_MS_TEXTJ + 128; 
" t BUFFER_1COPCSL_MS_TEXTJ; 
THEN SIGNAL (BACKUPS$_OPREPLY, 2, .K, BUFFER_1COPCSL_MS_TEXTJ); 
IF .REPLY NEQ 0 
THEN 
BEGIN 
CHSCOP 


v¢ 
-K, BUFFER_1COPCSL_MS_TEXT), 
ss -REPLYCDSCS$W_LENGTH], .REPLYCDSCSA_POINTER)); 


! Dispatch on the reply type. 

: Request complete: exit the loop | 

Request ponstags reissue the mailbox read 
No operator, aborted, etc.: signal fatal error 


i 
i 
! 
SELECTONE -BUFFER_1COPCS$W_MS_STATUS) OF 
COPC$_ROSTCMPLTE AND %X'FFFF'): 
ERITLOOP; 


COPCS ROSTPEND AND 2X°FFFF'): 


COTHERWI SE: 
BACKUPS_OPERFAIL, 


BACKUP.SRC JTAPEU 
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v04 oP PCOM = communicate with OPCOM 14- Sepa' ¢ 9}: 9: :08 BACKUP. SRC TAPEUT IL.B o33 1 
$ 1g 1419 (OPC$_RQSTABORT AND %&X"FFFFOO 4 ; * 
é 1 1420 -BUFFER_ 1COPCSW_MS_STATUSJ) 
; 318 1421 
; 319 14 § TES; 
3 0 14 END; 
$ 1 1424 
8 ¢ 1425 
; Si 1 $ Delete the mailbox. 
3 25 1428 sTatus = SDASSGN(CHAN=. CHANNEL); 
; $$ i? , If a «STATUS THEN SIGNAL (BACKUPS OPERFAIL, 0, .STATUS); 


eTITLE TAPEUTIL Magtape Utility Routines 
IDENT \v04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL _BASE: 
00000 FREE_LIST: 

BLK 
00008 INPUT “WAIT: 
00010 REREAD wilt: 
00018 OUTPUT “wilt: 


«BLK 
00020 JPI_UIC: -BLKB 
00024 JPI “USERNAME : 


00030 JPI_DATE: 
00038 JPI_NODE “DESC: 
00040 JPI -cunPalV: 
00048 SYI_VERSION: 


«BLK 
iets SYI_S1D:.BLKB 
0050 RWS0_HOLD Ue 


00058 RwSV_ cnet: 
00098 RWSV AuTODIN: 
000D8 RWSV FILESET 1D: 
OOOEO RWSV_VOLUME, 1D: 
QOOEC RWSV_VOL_NUMBER: 
“BLKB 
OLJEE RUSV_SEG_NUMBER: 
OOOFO RWSV_FILE_ NUMBER: 
-BLKB 4 


o ff © wo oo 
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v04 oP PeOM = communicate with OPCOM 1B-Se0-1984 of 96: 


OO0F4 RWSV_SAVE QUAL: 
OOOF8 RWSV_SAVE FAB: 
OOOFC RWSV_CHAN: 

-BLKB 
00100 RWSV_XOR_BCB: 
00104 RWSV_IN,SEG: | 
00108 RWSV_IN_SEQ 0: 
0010C RWSV_IN_XOR_ SEQ: 
00110 RWSV_IN_XOR_RFA: 
00116 RWSV_ -LOOKAHEAD: 
00117 RwSV -XORSIZE 
00118 RWSV_IN_ GROUP SI 
0011C RWSV_IN -ERRORS: 
0011E RWSV_IN -XORUSE : 
00120 RWSV_IN_ -ORGERR: 
00128 RWSV_IN -VBN: 
0012C RWSV_IN_VBN_0O: 
00130 RWSV_ALLOC: 
00134 RWSV_EOF: 

-BLKB 
00138 RWSV_OUT. SEQ: 

“BLKB 
0013¢ RWSV_OUT.VBN: 

“BLKB 
00140 RWSV_OUT_BLOCK. COUNT: 
00144 RWSV_OUT_ERRORS: 
00146 RWSV_SEQ_ERRORS: 
00148 RWSV_OUT_GROUP_COUNT: 
00149 RWSV_PADDING: 


0014C QUAL: -<BLKB 
001BC COM_SSNAME : 


-BLKB 
001¢4 COM_VALID TYPES: 
001C6 COM_FLAGS: 

BLK 


4 ——-YAX=11_BLiss-32 v4.0-74 p 
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001C8 COM_PADDING: 
-BLKB 
001¢9 COM_BUFF_COUNT: 
001CA COM_1_SETCOUNT: 
-BLKB 
001CB COM_O_SETCOUNT: 
__ «BLKB 
0O1CC COM_I_STRUCNAME : 
001D8 COM_O_STRUCNAME : 


| 

-BLKB 
OO1E4 sate ceaaae “¥" 
| 


-—- —_—_- —- — — 


OO1EC ALT. SNARE: 
0020¢ INPUT FUNC: | 
00200 INPUT _RTYPE: 
0020€ OUTPUT FUNC: 
0020F FAST STRUCLEV: 
00210 INPUT_BEG: 
00210 INPUT_CHAN: 
00214 INPUT_FLAGS: 
00216 INPUT_PADDING: 
00218 INPUT.FAB: 
0021C INPUT_NAM: 
00220 Input ecé: 
00224 INPUT QUAL 
00228 INPUT_BAD: 
0022¢ INPUT BLOCK: 
00230 INPUT_MAXBLOCK: 
00234 INPUT_MEDIA 1D: 
00238 INPUT_NAMEDESC: 
00240 INPUT_STATBLE: 
00248 INPUT WOR, BEG: 
00248 INPUT_CREDATE: 
00250 INPUT_REVDATE : 
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AX-11 Bliss-32 V4.0- a3. 
PCOM = communicate with OPCOM 14-Sep-1984 31 


08 BACKUP. SRCJTAPEUTIL.B3 
| mans woot pil. 
| 00260 input _BakeateE: © 
| 00268 INPUT ~ruieDbner:® 
0026C INPUT -FILECHAR: 
00270 INPUT_RECATTR: 
00290 INPUT_HDR_END: 
00290 INPUT_END: 

00290 INPUT_PROC List: 
00294 INPUT PLACEMENT 
0029¢ INPUT_VBN LIST: 
002A4 INPUT_PLACE LEN: 
-BLRB 
002A6 INPUT_PADDING_2: 
00248 OUTPUT pig: . 
002A8 OUTPUT “Cia 
OO2AC OUTPUT Fi AGS: 
OO2AE OUTPUT PADDING: 
00280 OUTPUT_FAB: 
00284 OUTPUT_NAM: 
00288 OUTPUT_BCB: 
002BC OUTPUT_QUAL: 
002c0 OUTPUT BAD: 
002C4 OUTPUT_BLOCK: 
002¢8 OUTPUT -MAXBLOCK: 
002CC OUTPUT -DEVGEOM: 
002D4 OUTPUT LATTBUE: 
00364 OUTPUT END: 
00364 LIST -TovFILES: 
00368 LIST_TOTSIZE: 
-BLKB 


onr rk FF FF NYRR ON ®% © OF COO 


144 
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- communicate with OPCOM 14-Sep-1984 4:08 BACKUP. SRCJTAPEUTIL.832;1 (3) 
0036C VERIFY ee ~~ 
00370 VERIFY -USE. Sad 


00374 VERIFY QUAL : 
00378 COMPARE BC8: 
0037¢ FAST BUFFER: ; 
00380 FAST_BUFFER SIZE: 
00384 FAST_RVN: 
00385 FAST PADDING: 
00386 DIR -VERLIMIT: 
00388 FAST_VOL “Bt: 
00388 FAST_IMAP SIZE: 
0038C FAST_IMAP: # 
00390 FAST_HDR -OF FSET: 
00394 FAST_BOOT T,tBN: 
00398 FAST_VOL_END: 
00398 JOUR_BUFFER: 
0039¢ JOUR_DIR: 
0030 JOUR_HIBLK: 
003A4 JOUR_EFBLK: 
003A8 JOUR_ INBLK: 
OO3AC JOUR_FFBYTE: 
OO3AE JOUR_INBYTE: 
-BLKB 
00380 JOUR_STRUCT LEV: 
-BLRB 
00382 JOUR_COUNT: 
.BLKB 
00383 JOUR_REVERSE : 
00384 JOUR_EXSZ: 
00386 JOUR_PADDING: 
00388 CHKPT_HIGH SP: 
003BC CHKPT_LOW_SP: 
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-BLKB 
003CO CHKPT Stack: 


BL 
003C4 CHKPT VARS: 
003C8 CHKPT STATUS: 
gosce DIR BEG: “BLKB 

O3CC we 
90300 DIR_NAM: .BLKB 
00304 DIR“DEV_DESC: 

-BLKB 
00308 DIR_SEL_DIR: 
003E0 DIR_SEL_NTV: 
003E8 DIR_STRUCLEV: 
003€9 DIR_LEVELS: 
OO3EA DIR_FLAGS: "e 
0O3EB DIR_STATUS: m 
OO3EC DIR _STRUG: 
0052C DIR_STACK: 

BLK 
00790 DIR_SP: .BLKB 


00794 DIRZSEL_LATEST: 


00798 DIR_END: .BLKB 
00798 DIRTSCANLIMIT: 


-BLK 
0078¢ INPUT ATL: 
007CO OUTPUT_MIL: 
-BLKB 
007C4 CURRENT_MTL: 
-BLKB 
007¢8 CURRENT_VCB: 
007¢c CURRENT _WCB: 
007D0 ACL_FIB_DESCR: 


LK 
00708 ACL_FIB: -BLKB 
00818 ACLILENGTH: 


BL 
0081¢ Act _BUFFERS 


-BLKB 
00820 CRYP_IN_CONTEXT 
00824 CRYP_OU_CONTEXT: 
00828 CRYP_DA_CONTEXT: 
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00000G 8&F 
000006 00 
FOES CE 
7E 

FFOC : 
14 «AE 

7E 
07 

5 
57 
: 

Bhs 
FEF » 
14 =6AE 

18 AE 
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BLK 
0082C CRYP_DATA_ENCIV: 
00834 CRYP_DATA_ CODE: 
00838 CRYP_DATA_KEY: 


00840 CRYP_DATA Iv: 
00848 CRYP_DATA CKSM: 
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BACKUP$_READYREAD 


8 
BACKUPS_OPREPLY 
Bateued~saae, toe ene 


KU 

BACKUPS POSITERR 

SSCREMBX, SYSSGETMSG 
NDOPR 


SYSSFAOL, SYS$S 
SYS$QIOW, SYSSDASSGN 


CODE ,NOWRT ,2 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
#BACKUPS OPER AIL, R11 


IGNAL 
-540(SP), $P 


-(SP 

#7, SYSSCREMBX 
P TUS 

STATUS, 1$ 

STATUS 

R11 

#3, LIBSSIGNAL 


#236, DESC +4 
#15, -TSP) 


ES¢ 
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00000000G 00 
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00000000G 00 
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6A 

56 

7E 

000000006 


00000000' 
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08 BACKUP. SRCJTAPEUTIL.B32;1 
#268 DESC 2 

BUFFER_2+8, DESC_2+4 

PARAM 


a SYSSEAQL 
ais, DESC_2, a@DESC_2+4 


Dw 
— 


2 ? 


RI 
BeSC_264, P, DESC.2 
70. tsp), #6, #8, BUFFER_2 


ROS SAVE FAB, RO 
“5, 52 (Koy. 5§ 
#4, RO 
#8, RO 
#i?, RO UFFER_2+1 
BUFFER 2, DESC_2+4 
CHANNEL 

SC 
#2, SYSSSNDOPR 
RO, STATUS 
STATUS, 7$ 
TATUS, #360545 
STATUS 
=(SP) 


R11 
#3, LIBSSIGNAL 
REPLY, R6 


10S8 
ws 

CHANNEL 

rt 

#12, SYS$Q10W 


(SP) 
Ph L 1B$S1GNAL 
FFER_1, #9 


BUFFER_1+4 


1368 
1369 


1375 
1376 


me — — SN SS 
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5 13 001 BEQL 4 ©=-:«113$ 
A ; pe 1 _ chers a! LIBSSIGNAL 
FFOO CD 0080 $F 3A 137 138 Loce—sa#'18, 1753! BUFFER_1+8 
é 135 BNEQ 148 
D 144 CLRL RY 
58 1 09 143 148: MOVL RI, P 
4 146 BNEQ 15$ 
8 80 AD 9E 0014 MOVAB BUFFER_1+136, P 
0 FF gp 9 146 15$: MOV BUFFER-1+8, RO 
59 ; 1 SUBL3. RO, P, "kK 
11 1 3 BEQL 4$ 
FFOO gp 9F 001 PUSHAB BUFFER_1+8 
9 DD 00158 PUSHL 
2 DD 130 PUSHL #2 
000000006 8F DD 0015F PUSHL #BACKUPS OPREPLY 
6A 4 FB 00165 CALLS #4, LIB$SIG 
6 D5 00168 168: TSTL R 
09 1 OO16A BEQL 178 
66 20 FFOO CD ~ 39 2c a8 MOVCS K, BUFFER_1+8, #32, (R6), @4(R6) 
50 FEFA CD 3¢ 0017 17$: MOVZWL BUFFER 142, RO 
8029 8F 50 81 OO17A CMPW #32809 
17 13 0017F BEQL "9 
8021 8F 50 B1 00181 CMPW =Ss«RO, #32801 
0D 13 0186 BEQL 
00050000 60 9F 001 PUSHAB 327680(RO) 
E D4 O18E CLRL = = (SP) 
5B 0D 001 PUSHL R11 
6A Q FB 0198 CALLS #3, LIBSSIGNAL 
FF58 31 00195 18$: BRW 9 
6— 0D 0198 19$:  PUSHL CHA NNEL 
000000006 09 1 FB OO19A CALLS + SYSSDASSCN 
5 9 DO 001A1 MOVL TUS 
EB 001A4 BLBS status, its 
57 DD O01A7 PUSHL STA 
7E D4 001A9 CLAL =(SP) 
5B DD OO1AB PUSHL 
6A 03 FB OO1AD CALLS aS. LIBSSIGNAL 
04 00180 208: RET 


; Routine Size: 433 bytes, Routine Base: CODE + 0000 
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Utility Routines Le -1984 01:06:44 
-8 - handle SPUTMSG output 14- 305-138 91:9 708 


ZSBITL *PUTMSG_ACTRIN_B - pengte SPUTMSG output’ 
ROUT INE PUTMSG_ACTRIN_B (DESC)= 


ee 


{ FUNCTIONAL DESCRIPTION: 
This routine is an action routine for the SPUTMSG call in routine 
et RESTART. It takes care ¥ Rg be, y message text to OPCOM 
f BACKUP is executing in a h job Otherwise, it calls the 
Sandard action routine teatRee’ AC RTN), HH defined, to put the 
eessage e@ out in the standalone environment. Otherwise, it lets 
SPUTMSG put the message out. 


INPUT PARAMETERS: 
DESC - Descriptor for message. 


IMPLICIT INPUTS: 
NONE 

i output PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


t ROUTINE VALUE: 
True if SPUTMSG should put the message out, otherwise false. 


i SIDE EFFECTS: 
NONE 


DESC: REF BBLOCK; ! Pointer to descriptor 
EXTERNAL ROUTINE 


PUTMSG_ACTRIN: WEAK; ! SPUTMSG action routine for standalone 
BUILTIN 


Ag - COM_FLAGSCCOM_INTERACT) 


ocels 
BUFFER_2: oot Orne 36). ' OPCOM message buffer 
ESC 27 vECTOR(2), i Descriptor for BUFFER 2 
a TOs; i Status variable 
! Initialize OPCOM information at head of buffer and move message text 
H to buffer. 
CHSFILL( YTEOFFSET(OPCSL_MS TEXT) BUFFER_2); 
BUFFER_¢ 6PC$B_MS_TYPE] = OPCS Ra 
BUFFER _2LOPC$B8 MS TARGET] = OPCSH™ NA SCéwTRL + OPCSM_NM_DEVICE + 


AX-11 Bliss-32 V4.0-74 
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lon 
cs 
om?) 
ze 


(IF ,BBLOCKCRWSV SAVE FABCFABSL_DEV], DEVS$V_SaD) 
i" HEN OPCSM_NM_TAPES 


e 
4 

4 

CHSMOVE(. ee cPpsesa NAD LSKS) -DESCCDOSCSA_POINTER], BUFFER_2COPCSL_MS_TEXTI); 
Send the message to OPCOM. There is no reply. 

Dest C.gf0) = gbepctescow. LENGTH] + SBYTEOFFSET(OPCSL_MS_TEXT); 

1 


STATOS = _SSNDOPRRSGBUF=DESC 
IF STATUS OR .STATUS SOC obics _NOPERATOR 


9s 
sienna (ONCRUPE,SPERFANL 0, .STATUS); 
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400 
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} Return true to display SPUTMSG output. 
TRUE 

END 

IF PUTMSG_ACTRIN NEQ 0 

CALLG(.AP, PUTMSG_ACTRTN) 

TRUE 


SE 
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.WEAK PUTMSG_ACTRTN 


OOFC 00000 PUTMSG_ACTRIN 8: 
WORD ve R2-R3,R4.RS.RO.R7 


57 000000006 00 9€ 00002 MOVAB sorasG ACTRIN, R? 
SE FEF8 CE 9E 00009 MOVAB <2 
64 00000000" EF : 0000E BLBS CON, FLAGS+1 
08 00 6E 00 2c 00015 MOVCS “(sP), #6, “oe. BUFFER_2 
08 AE OOO1A 
08 ar 03 90 O001C MOVB #3, BUFFER 2 
50 00000000' EF D0 00020 MOVL Busy sith FAS, 
05 40 AO 05 €1 00027 BBC y. 
50 04 bo 00 C MOVL a. 
03 11 000eF BRB 2s 
50 08 My 900 1 1$ MOVE 
09 «AE 0 11 81 00034 2$ ADDB3 a? Reo BUFFER_2+1 
6 04 Ac ; 90 9 MOVL est, Ré 
10 AE 04 B86 66 0 p MOVC3 ithe @4(R6), BUFFER _2+8 
6E 6 ¢ 004 MOVZWL (R6); DESC_2. 
6£ 8 ¢ 46 ADDL2 #8, BESC_2- 
04 AE 08 AE 9E 0004 V BUFFER_2, DESC_2+4 
7E pd 4 CLRL = = (SP) 
04 AE 9F 000 PUSHAB DESC 2 
000000006 00 FB 0 CALLS #2, SYSS$SNDOPR 
9 E A BLAC STATUS, $ 
00058061 &F D1 0005p CMPL STATUS. #360545 
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134 bytes, 


000000006 00 
50 
67 
50 


AX-11 Bliss-3 
BACKUP.SRCITA evr 
(SP) 
MBACKUPS OPERFAIL 
$SIGNAL 


PUTMSG_ACTRTN, RO 
, PUTMSG_ACTRIN 
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Routine Base: 


ART = get operator intervention 14-Sep-1984 


; 415 1316 1 ZSBTTL ‘GET_RESTART = get operator intervention’ 

3 21g : : : GLOBAL ROUTINE GET_RESTART (SIG,MASK): NOVALUE= 

; 418 1318 1 tee 

: 419 1520 1 

; 4620 1521 1 PUT eee. DESCRIPTION: 

: 421 15 § 13 This routine requests a restart ogtion from the interactive user or 
3 : ¢ 1 ? : from the system operator if BACKUP is executing in a batch job. 

; 4246 12 5 1 ! INPUT PARAMETERS: 

: 425 1826 1! $1G - Signal parameter array 

; 426 Tser 3 ft MASK - Bit mask of valid options 

: 427 1526 1! %8°001': RESTART is valid 

; 428 13 5 3 %8'°010°: CONT IME is valid 

; ri 1530 1! (QUIT is always valid) 

3 re 133) ’ } %B'100": restart issued from a restore operation 
3 $38 1338 1 ! IMPLICIT INPUTS: 

; 43 1834 1! NONE 

3; 434 1535 1! 

3; 435 1536 1 ! OUTPUT PARAMETERS: 

; 436 1330 1! NONE 

3; 437 1538 1! 

; 438 1539 1°! IMPLICIT OUTPUTS: 

: 439 1540 1! NONE 

3 440 1541 1! 

3 441 1206 1 ! ROUTINE VALUE: 

: 442 1543 1! NONE 

3: 443 1544 1! 

: 444 1545 1 ! SIDE EFFECTS: ‘ 

> «445 1546 1! If the reply is QUIT Signal the fatal BACKUPS$_ABORT 
> 446 1547 1! If the reply is RESTART 

: 447 1548 1! to a save B.speret tan: Call SAVE_RESTART 

3 448 1549 1! If the restr is R 

3; 4469 1550 1! to a restore epgrentem gett RESTORE_RESTART and return 
; 450 1551 1! If the veoty is CONTIN Return 

3 451 1226 s 

: 45 1553 1 !<- 

3; «645 1554 1 

3: 654 1555 § BEGIN 

; 455 1556 MAP : 

; 456 1557 § SIG: REF BBLOCK; ! Signal parameters 

3; 457 1558 LOCAL 

: 458 1559 OPTIONS ' Pointer to ASCIC options List 

> 459 1560 ANS_BUFFER: VECTORC8,BYTE) ' Buffer for user's response 

; 460 1561 VOLATILE; 

3; 461 1366 EXTERNAL ROUTINE 

: 46 156 SAVE_RESTA NOVALUE, ! Restart from checkpoint 
: 46 1564 RESTORE SRESTART: NOVALUE ; ' Restart restore operation 
> 464 1565 

3; 465 1366 

3 £86 1302 Issue the original fatal message. 

: 668 1368 3 bp LOCKE SIGE CUS. es G NAME} stssv,. SEVERITY = STSS$K_ERROR; 

> 669 1570 GCCHFS$L_SIG_ARGS SIGE CHF ARGS) = 2; 

: rth 127) SIGtCHFSL Sic AR SIG, = AtTATNcPUTASE. Ret TRIN_B); 
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3; 47 157 
$ ot? 136 } Loop until a valid response is received. 
: 475 1 26 OHILE TRUE DO 
: of 1358 LOCAL 
: 478 1379 REPLY_DESC: VECTORE2); ! Descriptor for reply 
eee 
: 481 138¢ Initialize descriptor for answer. | 
; 48 1384 REPLY -DESCEO] = 8 | 
> 484 1585 REPLY-DESCCL1] = ANS_BUFFER; 
: obs 1389 | 
; ‘ 4 1388 CASE ( .MASK AND %B8'11") FROM %B°01' TO %B'11" OF | 
; 1294 tie'10°3: OPTIONS = UPLIT BYTE (HASCIC * or CONTINUES; | 
; re 139¢ %1B°11'): OPTIONS = UPLIT BYTE (ZASCIC ', CONTINUE or RESTART"); | 
: 49 159 TES; 
: i8e 1298 
; $32 1238 } Issue prompt and receive reply. 
; 497 1398 if NOT .COM_FLAGSCCOM_INTERACT] 
: 499 1600 3 OPCOM(REPLY_DESC 
: 500 1601 BACKUPS~SPECIFY, 
s 501 1608 ; n ONS) 
; 502 160 ELSE 
: 32 1808 4 COCAL | 
; 305 1606 4 MSG_VECTOR: VECTOR(4); | 
; 507 1608 4 MSG_VECTOREO} = 3; | 
; 508 1609 4 MSG_VECTORC1] = BACKUPS_SPECIFY; 
: 3% sit 4 MSCcVECTORES) = LOT | 
: 511 1612 4 SPUTMSGCMSGVECEMSG PVErTOR, ACTRIN=WRITE_MESSAGE, ACTPRM=REPLY_DESC); | 
: 312 161 END; 
: 3 1818 
: a1? 1918 Analyze reply, after upcasing it. 
: 517 1618 ANS _BUFFERCO] = ANS BUFFERCO] AND NOT %0'040'; 
3 ae 1619 IF TANS_BUFFERCO) EQC ZC'C' AND .MASK<1,1> 
i 235 1854 ‘ RETU 
; 25 16 é 1F ANS TBUrFERCO? EQL %C'Q" 
: 2 g ig 4 THER SIGNAL (BACKUP$_ABORT) 
; ; : 16 5 If FANS. BUFFERLO EQt zc'R! AND .MASK<0,1> 
; 5 16 5 LF :MASK<2, .1> 
; 258 1859 4 BEGIN 
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RESTORE_RESTART(); 
RETURN; 


LSE 
SAVE RESTART (); 


5 52 20 72 6F 20 OB 00237 P.AAA: .ASCII <11>\ or RESTART\ 
F 43 20 72 6F 20 o¢ 00 43 P.AAB: <ASCII <12>\ or CONTINUE\ 
4 4 oe é 0 ¢ 0250 P.AAC: ASCII <21>\, CONTINUE or RESTART\ 
4 52 41 54 45 52 0025F 
-EXTRN SAVE_RESTART, RESTORE_RESTART 
-EXTRN SYSSPUTMSG 
003¢ 00000 .ENTRY GET_RESTART, Save R2,R3.R4.R5 
55 000000006 8F DO 00002 MOVL  #BACKUPS$ SPECIFY, RS 
54 000000006 00 9€ 00009 MOVAB SYSS$PUTMSG, R 
53 FF37 CF H 00010 MOVA PUTMSG ACTRIN_B, R3 
SE 20 C2 00015 SUBL2 #32, SP 
50 04 AC DO 00018 MOVL SIG, RO 
00 02 FO 0001¢ NSV We. #0, #3, 4(RO) 
60 92 ce 0002 SUBL2 #2, (RO) 
E 7C 00025 =( 
09 8B 00027 PUSHR #*M<RO 
64 04 FB 00029 CALLS #4, SYSSPUTMSG 
10 AE 08 00 900¢¢ 1$ MOVL #8. REPLY DESC 
14 AE 18 AE 9E 00030 MOVAB ANS _BUFFER REPLY_DESC+4 
02 00 EF 00035 EXTZV #0, #2, MASK, R 
01 50 CF 00038 CASEL RO, #1. #2 
000¢ 0006 0003F 2$: «WORD 3$- $.- 
5$-2$ 
52 89 AF 9E 00045 3$: MOVAB P.AAA, OPTIONS 
0A 11 00049 BRB $ 
52 BF AF 9E 0004B 4S: MOVAB P.AAB, OPTIONS 
04 11 O004F BRB 4 
52 96 AF 3 90051 5$: MOVAB P.AAC, OPTIONS 
0E 00000000° EE EB 00055 6$: BLBS COM FLAGS+1, 7$ 
: DD 0005¢ PUSHL OPTIONS 
5 BD 005 PUSHL 5 
18 AE F 0006 PUSHAB REPLY DESC 
FEGF C3 ‘ re 006 CALLS a3. OPCOM 
6 a3 DO 0006A 7$: MOVL #3, MSG_VECTOR 
04 AE DO 906 MOVL 5. MSG"VECTOR+4 
08 AE 04 09 0071 MOVL #1. MSG"VECTOR+8 
OC AE 2 p 0075 VL OPTIONS; MSG_VECTOR+12 
10 AE 9F 00079 PUSHAB REPLY_DESC 
7E D4 0 7¢ CLRL Os =C'S 
0000v CF 9F 0007 PUSHAB WRITE_MESSAGE 
OC AE 9F 0008 PUSHAB _VECTOR 
64 04 FB 008 CALLS #4, “SYSS$PUTMSG 
18 AE 0 BA 00088 8$: BICB2 #32, ANS_BUFFER 
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43 8F 18 AE 9 CMPB 
OS 13 Goo NEG 
36 Os aC 1 £0 0009 BBS 
| 1 8F 18 AE 91 00098 98 CMPB 
D 12 0009D BNEQ 
000000006 BF DD 900%F PUSHL 
000000006 00 01 FB QOOAS CALLS 
52 BF 18 AE 91 QOOAC 10$: CMPB 
18 12 00081 BNEQ 
14 08 AC £9 00083 BLBC 
08 08 AC 02 £1 00087 BBC 
000000006 00 00 FB 0008¢ CALLS 
04 000C RET 
000000006 00 00 FB 000C4 11$: CALLS 
FFSE 31 000CB 128: BRW 
04 OOOCE 138: RET 


; Routine Size: 207 bytes, Routine Base: CODE + 0266 


ANS BUFFER, #67 
i 


MASK, 13$ 
Ang BUFFER, #81 


agg 4 ABORT 


LIBSSIGNA 
Aus BUFFER, #82 


aa 11$ 
#0, RESTORE RESTART 


"0. SAVE_RESTART 


WAWG 
oon 


= 
Oo 


POPU PVDU PVPS IUSVSVSVSVSI SSIS 
Leal al * ol? ab valvalvslvalvalvalealealesllal oP oF oF oP oP oP a or a) 
WN "SO ODONAOVUESWN —“OVDOnNOUS WR 


oF 
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PP AAAS AA III 
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So 


11 
Utility Routines 1b-se -1984 01:06 
7 HAR = sense tape charactertistics 12-8 08-13be 91:96 


ZSBITL ‘SENSE_CHAR = sense tape charactertistics’ 
GLOBAL ROUTINE SENSE_CHAR = 


le4 
1 
FUNCTIONAL DESCRIPTION: 
This routine reads the tape characteristics. 


i CALLING SEQUENCE: 
SENSE_CHAR () 


i INPUT PARAMETERS: 
NONE 


i IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
tape device characteristics longword 


] 

i] 

' 

' 

' 

] 

] 

' 

{ 

a 

' 

i OUTPUT PARAMETERS: 
NONE 
{ 

' 

! 

' 

| 

i] 

i SIDE EFFECTS: 
NONE 
' 


ere Bliss-32 voit ass Page 23 
31 (6) 


244 
:08 BACKUP. SRCJTAPEUTIL.B3 


TAPE _CHAR : BBLOCK CSBYTEOFFSET (DIBSL_DEVDEPEND) +4], 
DESC : VECTORC2); 


ZALLOCATION(TAPE_CHAR) ; 
TAPE_CHAR; 


CHAN = .RWSV_CHAN, 
PRIBUF = DEST); 


. TAPE_CHARCDIBSL_DEVDEPEND] 
END; 


DESCLO) = 
DESCL1) = 
SGETCHN ( 


' End of routine 


-EXTRN 
0000 00000 -ENTRY 
5E 10 C2 44 SUBL2 
0C 0d 0000 PUSHL 
04 AE 08 AE 9E 00007 VAB 
7E 7C 0000C CLRQ 
08 AE OF BOO PUSHAB 
7E 04 0001 CLAL 
00000000* EF DD 00013 PUSHL 


TAPE _CHAR, DESC +4 
(SPJ 

DESC 

-(SP) 

RWSV_CHAN 


eee ee ee ee ee ees 
- 
o 
~~ 
uw 


[ 
| 
| 

SENSE_CHAR 

SYSSGETCHN 

SENSE_CHAR, Save nothing ; 1638 

#16, SP : 


D 11 
TAPEUTIL Magtape Utility Routines 16-Sep-1984 01:06:44 AX-11 Bliss-32 v4.0-74 P 4 
you~ 000 J Ease prog. $135 l ail 


| SENSE _CHAR = sense tape charactertistics 14-Sep-19 4:08 BACKUP. SRCJTAPEUTIL.832;1 (6) 
000000006 00 05 FB 00019 CALLS #5, SYSSGETCHN : 

50 10 AE D 9020 MOVL § TAPE_CHAR+8, RO ; 1679 

04 00024 RET : 1680 


; Routine Size: 37 bytes, Routine Base: CODE + 0335 


11 
TAPEUTIL Magtape Utility Routines 1h-se 1984 01:06:44 AX-11 Bliss-32 V4.0-74 Pa 5 
yoe-000 URITE MESSAGE : write prompt to terminal 12-808-1 38 9439 708 UBACKUP SRE TAPEUTIy 03551 om 3 
3 § 1681 1 ZSBTTL “WRITE RE SSAGE - write Ord’ to terminal’ 
: Hi 19 ¢ ! ROUTINE WRITE_MESSAGE (MESSAGE,REPLY_DESC) = 
; 585 19 ¢ : ed 
$ e 18 : : FUNCTIONAL DESCRIPTION: 
; 589 1688 1! This routine outputs the specified prompt message to SYSSCOMMAND 
; 590 1689 1! and waits for a response. 
; 591 1690 1! 
3 4 1691 1 ! CALLING SEQUENCE: 
; eg7 1096 : WRITE_MESSAGE (MESSAGE ,REPLY_DESC) 
; 595 1694 1 ! INPUT PARAMETERS: ‘ 
3s 3% 1695 1! SSAGE: string descriptor of pessone to use 
; 236 1938 : REPLY_DESC: descriptor for reply buffer 
; 599 1698 1 ! IMPLICIT INPUTS: 
; 600 1699 1! NONE 
; 601 1700 1! 
; 60 1701 1 ! OUTPUT PARAMETERS: 
; 60 1706 1! NONE 
3; 604 1703 1! 
; 605 1706 1°! IMPLICIT OUTPUTS: 
; 606 1705 1! NONE 
; 607 1706 1! 
; 608 1707 1! ROUTINE VALUE: = 
; 609 1708 1! FALSE (to inhibit SPUTMSG output) 
; 610 1709 1! 
3: 611 1710 1 ! SIDE EFFECTS: 
3; 612 1711 1! NONE 
: 613 ar 1! 
; 614 171 1 !-< 
3; 615 1714 «1 
; 616 1715 BEGIN 
; 617 1716 
; 618 1717 EXTERNAL ROUTINE 
3; 619 1718 LIBSGET_COMMAND : ADDRESSING_MODE (GENERAL); 
3 ost 1719 
; 621 1720 ‘ 
; ose i$ Use the message as the prompt to read an input Line. 
; 624 1758 LIBSGET_COMMAND(.REPLY_DESC, .MESSAGE); 
3 os? 17st FALSE 
3; 626 1725 END; ! End of routine WRITE_MESSAGE 


-EXTRN LIBSGET_COMMAND 
0000 00000 WRITE_MESSAGE: 
WORD 


. Save nothing 3 1986 
04 AC Dd 0000 PUSHL MESSAGE : 172 
000000006 00 "= 05 Tati CALS np. LTBSCET COMMAND : 
tn le ims 


PSE CSR a So MAT WY Ya SERT pa 2 ERE OR et 


F 
APEUTIL merrere Utility Routines 16-Sep-1984 01:06:44 VAX-11 Bliss-32 V4.0-742 Page 26 
v04-000 WRITE MESSAGE = write prompt to terminal 14-Sep-1984 11:54:08 CBACKUP.SRCJTAPEUTIL.832;1 (7) 


; Routine Size: 18 bytes, Routine Base: CODE + 035A 


4 1" 

TAPEUTIL Magtape Utility Routines 18-3¢ 1984 01:06:44 AX-11 Blisg-32 V4.0-74 Page 27 
voe~ 000 T_MESSAGE z prompt for volume mount 1 =30071 382 94598368 EBACKUP. SRE TAPEUTIC 09351 “ Bs 
3; 6 : 17 $ 1 ZSBTTL ‘MOUNT MESSAGE - eroaes for volume mount’ 

; ? 4 \f : GLOBAL ROUTINE MOUNT_MESSAGE (MESSAGE) : NOVALUE = 

; 63) 17 § 1 !¢¢ 

3 § ¢ 17 1: 

; ? \e 1 ! FUNCTIONAL DESCRIPTION: 

3 639 17 5 tt This routine issues an operator message to mount the next 
; e $ 1? : ; volume and waits for the reply. 

3; 6 17 $ 1 ! CALLING SEQUENCE: 

; 639 17 1! MOUNT_MESSAGE (MESSAGE) 

; 640 1736 1! 

> 641 1739 1 ! INPUT PARAMETERS: 

; rh 1740 1! MESSAGE: code of message to issue 

: 64 1741 1! 

> 644 Ieee 1 ! IMPLICIT INPUTS: 

; 645 17435 1! NONE 

3 646 1744 1! 

3; 647 1745 1 ! OUTPUT PARAMETERS: 

; 648 1746 1! NONE 

> 649 1747 1! 

; 650 1748 1°! IMPLICIT OUTPUTS: 

; $3) 1749 1! NONE 

; 6 ¢ 1750 1! 

3; & 1751 1 ! ROUTINE VALUE: 

; 654 1726 1! NONE 

; 655 1753 1! 

; 656 1754 1 ! SIDE EFFECTS: 

3; 657 1755 1! NONE 

; 658 1756 1! 

3; 659 eer 1 !-- 

: 660 1758 1 

3; 661 1759 BEGIN 

; $66 1760 

; 66 1761 LOC 

; 664 1706 MSG_VECTOR : VECTOR (6), ! message arg vector for SPUTMSG 
3; 665 176 REPLY_DESC : VECTOR (2), —(! descriptor for reply 

; 666 1764 REPLY_BUFFER : VECTOR (4, BYTE]; ! buffer for response 
; 667 1765 

; 668 1766 

; 669 176 : Set up the message vector and issue the message to the terminal, 
3 670 1768 : or to OPCOM if running under batch. 

; 676 1796 

3; 67 1771 MSG_VECTOR(O) = 5; 

; 674 404 MSG_VECTOR(C1) = .MESSAGE; 

; 675 177 MSG_VECTOR § = 3; 

i 676 1774 2 MSG-VECTORCS) = .RWSV_VOL_NUMBER: 

3; 67 1775 MSG_VECTOR[4] = .BBLOTKCROSV_SAVE_QUAL QUAL OVI DESC). DSC$W_LENGTH); 
3 ore 1778 MSG-VECTORES) = .BBLOCKCRWSV~SAVE_QUALCQUALDVI-DESCJ, DSCSA~POINTER); 
3; 6 177 IF ROT .COM_FLAGSCCOM_INTERACT) 

; 680 1778 THEN 

3; «681 177 OPCOM(0 

: 68¢ 1780 -MSG_VECTORE1], 

; 68 HH 4} oMSG_VECTOR(3), .MSG_VECTOR(4], .MSG_VECTOR[S]) 

3; «684 17 ELSE 


—— 


See Ge Ge Ge ee Ge Ge Sete eee 
Sad * add 3 


3; Routine Size: 


Be 915808 


sed Bliss-32 Ve e288 
BACKUP. SRCJTAPEUTIL.B32;1 


ITE MESSAGE. ACTPRM = REPLY_DESC); 
T 20'040'; 


! End of routine MOUNT_MESSAGE 


H 11 
Magtape Utility Bout taeg 16-Sep-1 
MOUNT MESSAGE = prompt for volume mount 14-Sep-1 
1783 WHILE TRUE 
17 dO 
1785 BEGIN 
17 REPLY DESCEO) = 4; 
17 REPLY-DESCC1) = REPLY_BUFFER; 
17 3 SPUTMSG meGyes = MSG _ VECTOR acretn = WR 
17 REPLY BUFFERCO) = .REPLY BUFFERCO] AND NO 
1790 IF .REPLY BUFFERCO) EQL *Y 
1791 THEN EXITCOOP; 
179 END; 
179 
1794 END; 
0004 00000 
52 00000000' cf 2 00002 
SE 4 C2 00009 
OC AE 05 DO 0000C 
10 AE 04 AC 00 Boorse 
14 AE 0 0 0001 
18 =#OA 6 C 00019 
5 08 A 08 0001D 
50 1 g 308 1 
1¢ =AE 60 3C 00024 
20 «AE 06 =#A 4 00028 
14 00DB C E8 00020 
Q AE ODD 000 ¢ 
0 AE DD 0003 
0 AE DD 00038 
1C AE DD 00038 
7E D4 +4 643 
FC4F CF 0 FB 0004 
04 00045 
046 AE 04 4 00046 1$: 
08 AE 6E 9E OO04A 
04 AE 9F 0004E 
7E 04 ised 
98 AF 9F 00053 
18 AE 9F 00056 
00000000G 00 04 FB 00059 
E 0 gh be 
59 F E 91 0006 
DD 12 0006 
04 00069 
106 bytes, Routine Base: CODE + 036C 


-ENTRY 


MOUNT_MESSAGE, Save R2 
RuSV_OL_ ER, R2 
#5, MSG_VECTOR 
MESSAGE, MSG_VECTOR+4 
#3, MSG VECTOR+ 
RWSV_VOC_NUMBER, MSG_VECTOR+12 
RWSV~SAVE_QUAL, RO 


(ROS, MSG_VECTOR+16 
4(ROS MSG VECTOR+20 


(S 
#5, OPCOM 

#4, REPLY_DESC 
REPLY_BUFFER, REPLY_DESC+4 
REPLY “DESC 

=(SP 

WRITE MESSAGE 

#4, SYSSPUTMSG 


#32, REPLY BUFFER 
REPLY BUFFER, #89 


roe 


"1 
TAPEUTIL Magtape Utility Routines tose -1984 01:06:44 AX-11 Bliss-32 V4.0-74 Page 29 
06 READY TAPE = make tape ready aeons ra ae ype Pg ot er hae a 8) 


$38 1 1 ZSBTTL "READY TAPE = make tape ready’ 
7 GLOBAL ROUTINE READY_TAPE (WRITE) = 


; 1 1 

3 5 17 1 

:; 701 1798 1 !¢¢ 

. FF ¢ 17 1! 

3 Re : : : : FUNCTIONAL DESCRIPTION: 

3; 705 1 oe 1% This routine gets the tape ready as specified and returns the 
: re ; 0 ; tape device characteristics. 

; 708 1805 1 ! CALLING SEQUENCE: 

3; 709 1 o6 1! READY_TAPE (WRITE) 

; 710 1807 1! 

s 7ii 1808 1 ! INPUT PARAMETERS: 

3 at; 1809 1! WRITE: FALSE if tape is to be read 

3 at 139 ; TRUE if tape is to be written 

s #715 Isle 1 ! IMPLICIT INPUTS: 

; 716 1815 1! NONE 

3 717 1814 1! 

:; 718 1815 1 ! OUTPUT PARAMETERS: 

; 719 1816 1! NONE 

3; 720 1817 1! 

: 721 1818 1 =! IMPLICIT OUTPUTS: 

3 ise 1819 1! NONE 

3: 7? 1820 1! 

3; 724 1821 1 ! ROUTINE VALUE: 

: 725 13s6 1! tape device characteristics longword 

s; a 1825 1! 

s ver 1824 1 ! SIDE EFFECTS: 

s re 1825 1! NONE 

: 729 1356 1! 

; 730 1827 1 !<- 

s 731 1828 1 

3 ree 1829 § BEGIN 

: 73 1830 

3; 734 1831 2 LOCAL 

3 735 1832 STATUS, ' system service status 
: 736 1833 MSG_VECTOR : VECTOR [6], ! aqssoge arg vector for SPUTMSG 
: 44 ieee 10_STATUS : VECTOR (4,WORD); ! 1/0 status block 
3; 739 1335 EXTERNAL ROUTINE 

: 740 18 FILE_ERROR; ! signal file related error 
: OG 1839 

: 74 1840 ' Loop, chock tng for tape on Line and write enabled if necessary, 
3; 746 1841 ! prompting to the user until satisfied. 

: 745 iene ! 

3; 746 is 

3: 747 1844 WHILE TRUE 

: 768 1845 dO 

: 749 1 #6 BEGIN 

: 750 P 1 STATUS = $Q]0W (CHAN = .RWSV_CHAN 

> 751 P 1848 FUNC = 10$_SENSEMODE, 

. P 1849 10SB = JO_STATUS 

: 75 1850 : 

: 754 1851 IF .STATUS THEN STATUS = .10_STATUSLO); 


-——__.---—--.->$------- + 
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11 
Utility Routines 18-5 -1984 01:06:44 Ax-11 iss- 4.0-74 
APE - ashe tape ready 1 = 4 01:96:68 ee eiraseutic 


-Sep-19 
IF_.STATUS EQL_ SS$_ENDOF TAPE 
THEN STATUS = TRUE; 


If .STATUS EQL : 


MEDOFL 
OR_ .STATUS EQL VOLINV 
THEN 


S$_ 
S$-VOL 


IF WRITE 
THEN MOUNT_MESSAGE (BACKUPS$_READYWRITE) 
oy MOUNT_MESSAGE (BACKUPS_READYREAD) ; 
NOT 
E 
WRITE AND .BBLOCK CIO_STATUS(C2], MT$V_HWL] 
MOUNT_MESSAGE (BACKUP$_WRITENABLE ) 
ELSE EXITLOOP; 
END; 


SENSE_CHAR () 
END; 


EXTRN 

ENTRY 

SUBL2 
1$: CLRQ 


So 
So 


om—0 9M 9 $9 9 “OWNS TNO 909 ONINNNOS 
99 9 ON "WI ON " 9 OOD FOI MAMOONS 


SOOOOOCOOCOoOOOoOOSOOOOOOOOSOOOOoOoOoOSoO 


5E 0 


SSVAVS 
> 
- 
2 
=) 


So 


20 A 
00000000" 


hen 
—_ 
PN POveog 

o 

> 

- 

~ 

“ 


SSRA 

cory ~ 

wr oe 

OQO2Woez 

2ZOoZzzO 

 v<mMmv<— 

crorn 
= 
aad 


wImnM 


MRM OFR BM LM ONM SWIM NOOMA-~mM 
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000000006 


COOoooooooooooo 


Oooeoo: 


00000878 


000001A4 
00000254 8F 


04 
000000006 
000000006 

17 


= 
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ovum 
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o 


ou 

td 
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aw 
=x 
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DPW & & & 
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= 


BACKUP. SRC JTAPEUTIL.832;1 


! wee Temp until TMDRIVER is fixed 
IF STATUS 

FILE_ERROR (BACKUPS_LABELERR, .RWSV_SAVE_FAB, .STATUS) 

IF 


! End of routine READY_TAPE 


FILE_ERROR 
READY TAPE, Save R2 
#32, SP 


-(SP) 

10_ STATUS 
RWSV_CHAN 

- sP 

#12, SYS$Q10W 
RO, STATUS 


TUS, 2$ 
10 STATUS, STATUS 
TATUS. #2168 


#1, STATUS 
stAtus, #420 


STATUS, #596 


WRITE, 5$ 
#BACKUPS_READYWRITE 


#BACKUPS$_READYREAD 


STATUS, 8$ 
STATUS 


1796, 
1850, 


1851. 
1853 


1854 


1856 
1857 


1860 | 
1861 | 


1862 | 


1865 
1866 


TAREUAL —-‘Ragkape URN Lity Routines 1$-Beor]984 1: RF:44  YAReHE BL isg=82 v4 


Boooee0¢ BE bb O97 PUSH MRACRUPS. CARE ER 
000000006 00 : FB CALLS 
ma BF 4 7$: RB 
12 04 aC 9 0 76 8S: BLBC ITE 108 
0D 06 AE 03 €1 OO07A BBC Wa 10_STATUS+6, 10$ 

000000006 8F DD O007F PUSHL maicxuPs WRI TENABLE 

FFOC CF 01 FB 00085 9$: CALLS , MOUNT_MESSAGE 
8 11 OO08A BRB 

FECE CF O FB 0008C 10$: CALLS #0, SENSE_CHAR 

04 00091 RET 


; Routine Size: 146 bytes, Routine Base: CODE + 03D6 


2 


44 
- set tape characteristics 14-Sep-1984 11:54:08 BACKUP.SRCJTAPEUTIL.B 


| 1 
TAPEUTIL Magtape Utility Routi 1b-Sep-1984 01:06: AX-11 Bliss-32 v4.0-74 ° 2 
v04 SET. CHAR "sone char : orig OB851 29 435 


; 780 1876 1 ZSBTTL “SET_CHAR = set tape characteristics’ 

; g 1 g GLOBAL ROUTINE SET_CHAR (CHAR) : NOVALUE = 
Bie 

: 785 1881 i FUNCTIONAL DESCRIPTION: 

: ree 1888 } } This routine sets the tape characteristics. 

: 789 188¢ 1 § CALLING SEQUENCE: 

$ ry 1958 : } SET_CHAR (CHAR) 

: 79 1888 1 | INPUT PARAMETERS: | 
3 a? 2 : CHAR: tape characteristics word to set 
: 795 1891 1 | IMPLICIT INPUTS: 

Weim = 

: 798 1894 1 | OUTPUT PARAMETERS: 

eine 

: 80 1897 1! IMPLICIT OUTPUTS: 

| ees at 

> B04 1900 1 ' ROUTINE VALUE: 

; Ht 18) ; os e device characteristics longword 

: $09 1908 1 | SIDE EFFECTS: 

; 808 1904 1! NONE 

: 809 1905 1: 

: 810 1906 1 i-- 

: 811 1907 1 

: Bie 1908 : BEGIN 

RE WR tocu 

: 815 1911 $ TAPE_CHAR : BBLOCK CSBYTEOFFSET (DIBSL_DEVDEPEND) +4], 
> 816 1918 2 DESC : VECTORC2), 

3; 817 191 § STATUS ‘ system service status 
; 818 1916 10_STATUS : VECTOR C4,WORD]; ' I/0 status block 

: 820 1916 2 EXTERNAL ROUTINE 

3 Bs) ott FILE_ERROR; ! signal file related error 
; 825 1919 2 WHILE TRUE 

: B58 1359 $ pectin 

> 826 1992 DESCEO] = ZALLOCATION(TAPE. CHAR) ; 

3 827 192 DESCL1) = TAPE_CHAR; 

; 828 P 1924 SGETCHN (CHAN = .RWSV_CHAN, 

; o¢2 Hh 5 PRIBUF = DEST); 

> 831 19 > TAPE_CHARCDIBSL_DEVDEPEND) = .CHAR; 

; 832 P 1928 STATOS = $Q1]0W CHAN = .RWSV_CHAN 

: 83 Pp 1989 FUNC = 10$ SETMODE, 

: 834 P 1930 10SB = 10 STATUS 

: 35 P 1931 as TAPE_CHARCDIB$B_DEVCLASS) 


M11 | 
TAPEUTIL Magtape Utility Routines 16-Sep-1984 01:06:44 AX-11 Bliss-32 V4.0-74 P 
voe-000 SEY. CHAR - set tape characteristics 12286871382 9:98:66 EBACKUP SRe TAPEUTIL.832;1 aadey if 
: 7 1933 IF .STATUS THEN STATUS = .10_STATUSCO]; 
; 8 1934 IF .STATUS EQL SS$_ENDOFTAPE THEN STATUS = TRUE; 
; 83 1935 IF .STATUS THEN EX P: 
3 840 19 $ FILE ERROR (BACKUPS_POSITERR, .RWSV_SAVE_FAB, .STATUS); 
; B4¢ 1938 : 
; 84 1939 1 END; ! End of routine SET_CHAR 
000¢ 00000 .ENTRY SET_CHAR, Save R2,R3 : 1877 
53 00000000" EF i 00002 MOVAB RWSU_CHAN, R3 : 
5E 1¢ C2 00009 SUBL2 #28, SP : 
08 AE OC DO 0000C 1$: MOVL #12, DESC 3 1922 
OC AE 10 AE 9E 00010 MOVAB  TAPE_CHAR, DESC+4 + 192 
7E 7C 00015 LRQ = =(SPJ + 1925 
10 AE 9F 00017 PUSHAB DESC : 
ze D4 OOOIA LRL : 
63 DD 9901¢ PUSHL RWSV_CHAN : 
000000006 00 05 FB O01 CALLS #5, SYSS$GETCHN : 
18 AE 04 aC 00 000 MOVL § CHAR, TAPE_CHAR+8 : 1927 
7E 7C O002A CLRO =—_ = (SP5 + 1932 
7E 7C 0002C CLRQ = (SP) : 
7E D4 000¢E CLRL = = (SP) : 
28 AE 9F 00030 PUSHAB TAPE CHAR+4 : 
7E 7C 00033 CLRQ = =( SP F 
20 AE 9F 00035 PUSHAB 10 STATUS ; 
23 DD 00038 PUSHL #35 : 
63 DD 0003A PUSHL RWSV_CHAN : 
7E D4 9905¢ CLRL.  =(SPY : 
000000006 00 OC FB 000 CALLS #12, SYS$QI0W : 
52 50 D0 0004 MOVL RO, STATUS : 
03 52 &9 0004 C STATUS + 1933 
52 6— 3C 00048 MOVZWL 10 STATUS, STATUS : 
00000878 aF 32 D1 OO04E 2$ PL STATUS, #2 : 1934 
03 12 0005 BNEQ 3$ : 
52 gi DO 00057 MOVL #1, STATUS : 
14 E8 OO05A 3$ LBS STATUS, 4$ : 1935 
52 DD 0005D PUSHL STAT : 1936 
FC AS DD 0005F PUSHL RWSV SAVE_FAB ; 
000000006 8F DD 0068 PUSHL #BACRUPS$_POSITERR F 
000000006 00 93 FB 006 CALLS #3, FILETERROR : | 
B 11 0006F BRB 1$ : 1919 
04 00071 4$ RET : 1939. 


3; Routine Size: 114 bytes, Routine Base: CODE + 0468 
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N 1 
e Utility Routines 16-Sep-1984 01:06:4 
~ rewina tape 12-88-1382 01 :96:8 


ZSBITL ‘REWIND - rewind tape' 
GLOBAL ROUTINE REWIND : NOVALUE = 


144 
' 
FUNCTIONAL DESCRIPTION: 
This routine rewinds the save set tape. 
CALLING SEQUENCE: 
REWIND () 


re Bliss-32 Yate 
BACKUP. SRC JTAPEUTIL .B32;1 


cs 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL 
STATUS, ! general status value 
IO_STATUS : VECTOR C4, WORD]; ! 1/0 status block 


EXTERNAL ROUTINE ; 
FILE_ERROR; ! signal file related error 


WHILE TRUE 
dO 


BEGIN 

STATUS = $Q10W (CHAN = .RWSV_CHAN, 
FUNC = I0$_REWIND, 
10SB = IO_STATUS 


) 
~STATUS THEN STATUS = .10_STATUSCO); 
~STATUS EQL SS$_ENDOFTAPE THEN STATUS = TRUE; 
STATUS THEN EXTTLOOP; 
E_ERROR (BACKUPS_POSITERR, .RWSV_SAVE_FAB, .STATUS); 


L 
D; 
END; ! End of routine REWIND 


—————-—-_-- - - ----- ——— ee a 


| TAPEUTIL Magtape Utility Routines 
00 REGI 5 x 
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 v04=0 - rewind tape 18-60-19 i tf 


14-Sep-1984 
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| 
0004 
00000000' 


000000006 


00000878 


~m 
Sad 


Ww 
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00000000' 
000000006 
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; Routine Size: 81 bytes, Routine Base: CODE + O4DA 


744 AX-11 Bliss-32 V 
08 BACKUP.SRC TAPEUT 


REWIND, Save R2 
ad 


) 
} STATUS 
oyey Ce 
#12, SYS$Q10W 
STAT Ys 


ATUS 
10 We eue STATUS 
gTATUS , #2168 


#1, STATUS 
STATUS, 4$ 
STA a. 
RWSV 
mBACRUPS. Posi TERR 
tf FILE_E 


Bee Se Se Se Se Se Ge Se Fe Ge Fe Se Se Fe Fe Fe Se Fe Se Be Be Se Be 
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TAPEUTIL Magtape Utility Routines 1b-36 -1984 01:06:44 AX-11 Bliss-32 V4.0-74 Page 36 
| Voneb00 UNCOAD ~ unioes tape 14 att 1:96:38 EBACKUP. SRe TAPEUTIC b$351 . 3s 


; 901 1995 1 XSBTTL "UNLOAD = unload tape’ 
; 30 199 GLOBAL ROUTINE UNLOAD : NOVALUE = 
1 90% 1998 1 I++ 
: 905 1999 1/3 
; 906 $00) i FUNCTIONAL DESCRIPTION: 
; 208 Oe } This routine unloads the save set tape. 
; 910 904 i CALLING SEQUENCE: 
; ar 006 1! anna 
; 913 907 i INPUT PARAMETERS 
> 915 009 1: 
SBME LL wmuacyy puts 
: 918 2018 13 
; 919 2013 i OUTPUT PARAMETERS: 
: 921 2015 1: 
; 922 2016 IMPLICIT OUTPUTS: 
> 924 2018 1! 
Se as | 
; 927 2021 1! 
$8 Bae 71 SIDE eee: 
; 4 2024 1/ 
: 931 025 1 i-- 
: 932 2026 1 
: 933 2027 2 BEGIN 
: 934 2028 2 
: 935 2029 2 LOCAL 
3; 9% 030 2 STATUS, ' general status value 
: 937 2031 : 10_STATUS : VECTOR C4, WORD]; ! 1/0 status block 
: 939 $033 EXTERNAL ROUTINE 
3 a soe 3 FILE_ERROR; ! signal file related error 
Be HAE gies tue 
> 944 2038 5 BEGIN 
> 945 P 2039 STATUS = $Q10W (CHAN = .RWSV_CHAN, 
> 946 Pp $080 ; FUNC = IO0$_URLOAD, 
; ot 4 Pe spe) J0S6 = 1O_STATUS 
> 949 2048 : IF .STATUS THEN STATUS = .10_STATUSCO); 
BP RE gfe stare 
: 95 ug r BEGIN 
; 933 047 4 1F STATUS EQL SS$_NOPRIV 
: 955 049 5 BEGIN 
: 956 P 2050 5 STATUS = $Q]0W (CHAN = .RWSV_CHAN 
> 957 P 2051 § FUNC = [O$_REWINDOFF, 
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10SB = IO_STATUS 
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): 
If STATUS THEN STATUS = .10_STATUSCO); 


TUS EQL SS$_ENDOFTAPE THEN STATUS = TRUE; 
TATUS THEN EXITLOOP; 
ERROR (BACKUPS_POSITERR, .RWSV_SAVE_FAB, .STATUS); 
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! End of routine UNLOAD 
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UNLOAD, Save R2,R3.R4 
OW, RS 


RWSV_CHAN, R3 
#8, SP 


10_STATUS 
RWSV_CHAN 
=(SP 

#12, SYSSQIOW 
0, STATUS 


STATUS, 2$ 
10_STATUS, STATUS 
STATUS, 3$ 
STATUS. #36 


RWSV_ CHAN 

#12, SYS$Q10W 

RO, STATUS 

STATUS, 3$ 

10_STAfUS, STATUS 

STATUS, #2168 

#1, STATUS 

STATUS, 5$ 

STATUS 

RWSV_SAVE_FAB 
ACRUP$_POSITERR 

"3. FILE-ERROR 
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: 970 3. 1 ZSBTTL ‘SKIP_TM = skip tape marks' 

H 48 rt: ; GLOBAL ROUTINE SKIP_TM (COUNT) = 

; 97 1 !4 

: 974 be$ 1! 

$ af? 8 ! FUNCTIONAL DESCRIPTION: 

: 97 070 1! This routine skips the speci tied number of tape marks 
; 978 071 1! forward or backward on the tape. 

; 979 O76 1! 

; 980 075 1 ! CALLING SEQUENCE: 

; 981 074 1! SKIP_TM (COUNT) 

; ong 075 1! 

; 98 O76 1 ! INPUT PARAMETERS: 

3 One $44 ; } COUNT: number of tape marks to skip, + for forward, - for reverse 
; 986 079 1 =! IMPLICIT INPUTS: 

; 987 080 1! NONE 

; 988 081 1! 

; 989 ORs 1 ! OUTPUT PARAMETERS: 

; 990 083 1! NONE 

: 991 084 1! 

; o38 085 1 ! IMPLICIT OUTPUTS: 

; 99 086 1! NONE 

: 99% 087 1! 

; 995 88 1 ! ROUTINE VALUE: 

; 996 089. 1! TRUE if success 

3 344 94 : SS$_ENDOF VOLUME if 2 successive tape marks encountered 
; 999 O36 1 ! SIDE EFFECTS: 

3; 1000 095 1! NONE 

: 1001 094 1! 

3 Ione 095 1 !-- 

: 100 096 (1 

3; 1004 097 2 BEGIN 

3; 1005 2098 

3: 1006 3444 LOCAL 

3; 1007 100 STATUS !_ general status value 
> 1008 2101 10_STATUS : VECTOR (4, WORD]; ! 1/0 status block 
3; 1009 $108 

z 1010 10 EXTERNAL ROUTINE 

; Hae 33 FILE_ERROR; ! signal file related error 
; 1918 & 198 STATUS = $Q]0W (CHAN = .RWSV_CHAN, 

3 ior P 21 FUNC = JO$_SRIPFILE, 

3: 101 P 2108 10SB = 10_STATUS, 

3; 1016 P 2109 Pl =. T 

3 1017 110 ); 

: 1018 111 IF .STATUS THEN STATUS = .10_STATUSCO); 

3: 1019 Ne IF_.STATUS EQL SS$_ENDOF TAPE 

: 1020 11 THEN STATUS = TRUE; 

: 1021 114 IF NOT .STATU 

3; 10 § 115 AND .STATUS NEQ SS$_ENDOF VOLUME 

: 19 ? ie THEN FILE_ERROR (BACKUPS_POSITERR, .RWSV_SAVE_FAB, .STATUS); 

: 1025 BT . STATUS 

: 1026 11 END; ! End of routine SKIP_TM 


ees 
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0004 9 .ENTRY SKIP_TM, Save R2 3 2064 
SE 98 2 0000 SUBL2 #8, SP : 
— 7¢ 9 CLRO. 0 = §p) t 2110 
7E 7¢ CLRQ = SP) : 
7E D4 000 CLRL 20s = (SP) : 
04 Ac DD 0008 PUSHL COUNT : 
7E 7C 99 CLRQ. = (SP) : 
20 AE OF PUSHAB 19 STATUS : 
2 DD 0001 PUSHL #37 : 
00000000° EF DD 90015 PUSHL RSV CHAN : 
000000006 0 o¢ FB 90010 CALLS #12, SYS$QIOW : 
4 0 DO 00024 MOVL RO, STATUS : 
03 52 &9 00027 BLBC STATUS, 1$ + 2111 
52 6E 3C 0002A MOVZWL 10 STATUS, STATUS : 
00000878 &F 3¢ D1 90020 1$: cMPL STATUS, #2168 : 2112) 
52 01 06 900 MOVL #1, STATUS > 2113) 
iE 52 £8 00039 28: BLBS STATUS, 3$ + 2114) 
000009A0 =F 3 D| 0005¢ CPL STATUS, #2464 ; 2115 
52 od 00045 PUSHL : 2116 
00000000° EF DD 00047 PUSHL RWSV_SAVE_FAB ; 
po0o0000e 9 2000000G BE Oe AOE 00 ar te : 
98 93 DO O005A 3$: MOVL STATUS, RO 3 2119) 
04 0005D RET F 


; Routine Size: 94 bytes, Routine Base: CODE + 05A4 
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ZSBITL ‘SKIP_RECORD - skip tape records’ 
GLOBAL ROUTINE SKIP_RECORD (COUNT) = 


14 


‘ 
FUNCTIONAL DESCRIPTION: 


This routine skips the Speci tied number of records 


>; 10 1 9 1 

3 \s 1 1 

3 3 1 § 1 

; 10 1 1 

3; 10 1246 1! 

H + ice BG 

3 7 1 § ;! 

; 10 1 1! 

3 1° } 3 ; : forward or backward on the tape. 

; 10 150 1 ! CALLING SEQUENCE: 

H te 4 } 1 ! SKIP_RECORD (COUNT) 

3 1041 1 § 1 ! INPUT PARAMETERS: 

3 Hk 4 ; ¢ ; COUNT: number of records to skip, + for forward, - for reverse 
3 1044 136 1! IMPLICIT INPUTS: 

> 1045 137 1! NONE 

3 1046 138 1! 

3 1047 139 1 ! OUTPUT PARAMETERS: 

> 1048 sit? 1! NONE 

3 1049 141 1! 

3; 1050 136 1 ! IMPLICIT OUTPUTS: 

3 1051 143 1! NONE 

; 1936 144 1! 

3; 105 145 1 ! ROUTINE VALUE: 

3 1054 146 1! TRUE if success 

3; 1055 2147 1! SSS_ENDOFFILE if a tape mark is encountered 

: 1056 148 1! 

3 1057 149 1! SIDE EFFECTS: 

3; 1058 150 1! NONE 

3 1059 2151 1! 

3 1060 $126 1 !-- 

3 1061 ‘sy (Uf 

3 1066 size BEGIN 

3; 106 155 

3 1064 $128 LOCAL 

3; 1065 13f Y : BBLOCK (16), ! dummy I/0 buffer for read 
3; 1066 21 STATUS '_ general status value 
3 1067 3159 10_STATUS : VECTOR (4, WORD]; ! 1/0 status block 
3: 1068 160 

3; 1069 2161 EXTERNAL ROUTINE 

3 ne $16¢ FILE_ERROR; ! signal file related error 
; 1076 $184 ! To avoid some crocks in the various magtape drivers’ EOV handling, 
3: 107 165 ! if the record count is 1, read it rather than skipping. 

3 1074 198 ! , 

3; 1075 16 

3; 1076 168 If .COUNT EQL 1 

3; 1077 168 THEN 

3; 1078 P 2170 STATUS = $Q]0W (CHAN = .RWSV_CHAN, 

3: 1079 P 2171 FUNC = 10$_READLBLK, 

: 1080 P 76 10SB = 10 ST ° 

31 ¢ P 2174 or a 

: 108 175 ) 

3 1084 176 ELSE 
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yoo 000 SK PRECORD {kip tape records 

: 1085 P 2177 STATUS = $Q10W (CHAN = .RWSV_CHAN 

; 19 P 178 FUNC = 10$_SRIPRECORD, 

31 P 217 10S8 = 10 STATUS, 

: 1088 Pp 9 4 = .COUNT 

: 1090 1 2 If .STATUS THEN STATUS = .10_STATUSCO]; 

: 1091 1 IF .STATUS EQL SS$_ENDOF TAPE 

: 1098 184 2 OR .STATUS EQL_ SS$"DATAOVERUN 

: 109 185 2 THEN STATUS = TRUE: 

: 1094 1 IF NOT .STATUS 

: 1095 1 AND .STATUS NEQ SS$_ENDOFFILE 

: 1096 188 THEN FILE_ERROR (BACKUPS_POSITERR, .RWSV_SAVE_FAB, .STATUS); 
: 109 189 

: 1098 190 . STATUS 

3; 1099 191 END; ! End of routine SKIP_RECORD 
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SKIP_RECORD, Save R2 
#24, SP 
COUNT. #1 


Pp 
; STATUS 
RWSV_ CHAN 
#12, SYSS$QI0W 
RO, STATUS 
ATU 


we tus STATUS 
Rius, #2168 


ATUS, #2104 


STATUS 
6 


T 
0 
T 
$ 
T 
; 
TATUS, 6$ 

TATUS, #2160 


S 
| 
S 
4 
5 
M 
S 
$s 


ATUS 
RWSV_SAVE_FAB 
#BACRUPS$_POSITERR 
#3, FILETERROR 
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: M TATUS, R 3 2191. 

50 52 0 o007e 6$: nove STATUS, RO : 2 


; Routine Size: 127 bytes, Routine Base: CODE + 0602 


———— 


OUTPUT PARAMETERS: 
NONE 


~~ 3 II IOQOOOO 
ARWNW—OSR WEAR os 


PIPIPININIPINPIMNININIPIMININIPIIPIN III INI 0 rt a dd ed dd 
@o 
Cc 
nn 
n~ 
m 
po) 


IMPLICIT OUTPUTS: 
NONE 


RRP 2 2 IQ OO COCO 
-o WNAUE NW OODNAAE WO ODR Ie A Rome 


ROUTINE VALUE: 
TRUE if label is valid 
BACKUPS$_NOTANS! if any checks fail 


SIDE EFFECTS: 
NONE 
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yoneb00 READ. ABEL - reed tape label 13-88-38 9:96:05 UBACKUP SRE ITAPEUTIL 63 31 . (15) 
3 77 138 ZSBITL ‘READ LABEL = read tape label‘ 
; 1 137 GLOBAL ROUTINE READ_LABEL (BUFFER, LABEL_TYPE) = 
; 195 1 !4¢ 
; 138 ! 
: bp ' FUNCTIONAL DESCRIPTION: 
; 199 This routine reads and verifies a magtape label record. 
; 94 CALLING SEQUENCE: 
: § READ_LABEL (BUFFER, LABEL_TYPE) 
; INPUT PARAMETERS: 
; BUFFER: address of buffer to read Label 
$ LABEL_TYPE: optional label type to check for 
; IMPLICIT INPUTS: 
: NONE 


BEGIN 


BUILTIN 
ACTUALCOUNT; 


MAP 
: REF BBLOCK; ! Label buffer arg 


LOCAL 

$ ' system service status 
Afus : VECTOR (4, WORD]; ! 1/0 status block 
I 


EXTERNAL NE 
FILE_ERROR; ! signal file related error 


: Read a record from the input channel and make the approriate checks. 


STATUS = $Q]0W (CHAN = .RWSV_CHAN, 
FUNC = 10$_READLBLK, 


= 
1088 = 10 STATUS, 
pl = ,BOFFER, 
P2 = § 


a tk a a a a a a ak i a a nh a a ek at a td ot ot = 2 ot a a a SS a a a 
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(15) 


IF .STATUS THEN Jtatus = 10. STATUSCO]; 

IF .STATUS Eat SS$_ENDOF TAPE~ 

THEN STATUS = TRUE? 

IF NO Ay aTus 

ven IN 
I STATUS | EQL SS$ DATAQVERUN 
N RE RETURN N BACK KUPS_N 
E 


ene. S “AnN-4—-4 


IF .10 sraTust13 GTRU 80 
THEN RETURN .STATUS 
ELSE FILE RERROR (BACKUPS -LABELERR, .RWSV_SAVE_FAB, .STATUS); 


PAERAQAPMAAAATIIIIN 


ND; 
IF .JO_STATUSC1] NEQ 80 
THEN RETURN BACKUP$_NOTANS!; 
3 
; 
1 


IF ACTUALCOUNT () GEQU 2 
THEN 


BEGIN 
IF .BUFFERCHDI$L_HDILID] NEQ .LABEL_TYPE 
THEN RETURN BACKOP$_NOTANS!; 


Sete Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Gees 

ed ed ed od dd dd dd 8 dd 
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END; ! End of routine READ_LABEL 


0000 00000 .ENTRY READ_LABEL, Save nothing ; 

SE 08 C2 90002 SUBL2 #8, SP ; 
7E 7C 9000 CLRO a 5 : 2249 | 

7E 7C 00007 CLRQ = =( SP) F 

7E SA BF 9A 00009 MOVZBL #90, -(SP) ; 

04 AC DD 0000D PUSHL BUFFER : 

7E 7C 00010 CLRQ. 9 =(S : 

20 AE OF O012 PUSHAB 19 STATUS : 

21 DD 0001 PUSHL 3 : 

00000000' EF DD 0017 PUSHL RWSV_CHAN : 

E D4 01D CLRL -(SPJ 3 
000000006 90 OC FB 001F CALLS #12, SYS$QI10W : | 
30 £9 00026 BLBC = STAT ; 2250. 
0 6E 3C 00029 MOVZWL 10 STATUS, STATUS : | 
00000878 BF 5 pI 00 1$ CPL STATUS, & #2168 > 2251 | 
Q 0 06 00 MOVL so STATUS ; 253 
0 E8 00038 28: BLBS STATUS, > 2253. 
00000838 BF 30 b i cAPL TATUS, $2106 : 2256 | 
00000870 8F 5 D1 0004 CMPL TATUS, #2160 : 2258. 
06 12 00048 BNEQ ; 
50 09A0 BF 3C 00040 MOVZWL #2464, RO > 2259. 


Rais Soc skte Geebcabe A Met heer Sib «Sed 
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04 RET 3 
0050 = 8F 02 Af 1 35 3$: my JO_sTATUS+2, #80 3 2261. 
35 DD 00058 PUSHL ATUS + 2263 
90000000. 3 DD 0005 PUSHL RWSV_SAVE_FAB : 
00000006 8F DD B06 PUSHL #OACKUPS _CABELERR : 
000000006 00 03 FB 3 CALLS #5, FILE_ERROR : 
6050 =s BF 02 AE 861 00070 4$: CMPW O_STATUS+2, #80 3: 2266) 
0c \¢ 0076 BNEQ $ : 
02 gC 9 07 CMPB (AP), #2 3: 2269. 
F 1 00078 BLSSU ; 
08 Ac 04 BC D1 90070 CMPL @BUFFER, LABEL_TYPE 3 2272) 
08 13 0008 BEQL ; 
50 00000000G 8F 00 i 5$: MOVL #BACKUPS$_NOTANSI, RO 3 2273) 
04 00088 RET : | 
50 01 DO O008C 6$: MOVL #1, RO 3 2277) 
04 OO008F 7$: RET : 


; Routine Size: 144 bytes, Routine Base: CODE + 0681 


47 


(16) 


Page 


rr Oot Ve e088 
BACKUP. SRCJTAPEUTIL.B32;1 


a 
a . 
C) °o 
we (= = 
‘= — 
bond ow i 
=] ox ws 
a Seu ao) - 
wo pond —o ay oo 
To p= ] ow ~ ~ « 
ee co o >2 eo ”“”4 3s 
ov ~ > 
own c— “an a - @ 
ee oe c re. . r-¢ é 
oo a ww —- - 
om ee ons ao “ ~ 
= ow — ° pe | 
ww 3 ow - o 
coco Vv - >. & 
an ~oO a 
-—— a on™ os <= + 
te = hi «e i o 
aa a a c y 
Noe c-- o w © 
yw °o a - a ¢€ 
im) we Des w <= w 
zoy c ton) wn 
—— o --2a we © «= 
« > 
= oO oe “” 
ce 3 Ln] 1 
© o « 
ics — =) ° 
- wu - . ”" 
at a ws eed p= ba 
cw a zo -_- a 
o> b) a «wo <« « 
enw we oO => ws 
=z oa were Wi =) 
e> oo Vv ect cy w 
Qo w >3.- Ow 2 
a2 4) > ” we =o 
ca a 2 % << a) 
oe oe ~ oe a Pm J — 4 
a 2 ese om = =—ttl A 
-= oOo & oS a 
-—— “_ B uuu “na = 
- 6 Be 22 Me 
Bw a © ee ZveQm mw Yv 
to — Cc —-_~ ee ww eo ee <z2au < fee aq 
<= te ecr- wme Ww ° « ” =e FDO OwW @ 
_— < ee + WY [+ ” ws ad ” So Vues OUD ~ 
“eo z= YY 3S 2 w om - ~ Ss wc ~ aT. 4 
ee - w OO We > w a w ** —_—- 2a ze « 
c [YF] ea t’ Dt w a = - = ” “Et —w 3B ws WO 
-oe wae Ow = 2 > ai load se &- §' oO zonre 
+a ee ~~ FF we weew @w Ow aw ww KY Dw = ww oe 
pe Ee) cad <ztznre Ne Aaa 2 <2 2 >2 w2Zz <x<«isiouwsd WMdaw 
ovr ap _— a a= <«<o roc acd oO So «OO -o co A wr te. 
30 or US ASF HZ =estz we wZ nun iv 2D Mw *\, 
- <= “_ 2a Yv _ i) za ws —_ " ee S| 
- _ _ _ - “_ _ $ <<-—- = 
a | = 4 > —_ a. | _ w ” me Nee 
—< z a a a omg a | a z= al « = nn S 
25 — ] < 4 = > = So amd — <« uw _— * *222 +s 
@ - Cz) — = o _ « ” 8 wo — <= ww & 
YW «+ ‘ww Oo =< = woutut & 
BED mm mm mmm mmm mmm mmm mem emeas ea a w ”“ “heh = i 


CLE ICI CUI CI ICI CII III OOOO 


Magtape Utility R 
uRYTe TM - write 


Se ee AAA Teele leet ele eh le leh lh eh eh Lah lh Lah Lh Lah Lh a Lah La beh La ad a Lad La Lh ad La a 
NUNN NNN NNN ANNAN NNN NI NININ AINA 


aaa 


POM VMATMNOPR OPO UM TIMOR. ODOR MUMTN OR. DHOOM CUM TMNOR. DOO TUM TIN OR. OD 
2m FOOT PAEPOOO ODO OO eee Ui RUIA ARIA 
SE III ICICI CI NI CUI CUI OUI CIR CUI CUI CU CUCU CUCU CUCU CUCU CI CUCU CU CUCU CUCU CUCU CINnC 
ELL Ee 


TAPEUTIL 


v04-000 


ereet at Yer ae 4 
BACKUP. SRCJTAPEUTIL.B32;1 


gtare grk Routines 
WRITE_TM = write tape mark 


TAPEUTIL 


v04- 


o w mm ws oa 
~ NU NM CUCU ™N 
nN Mm ma - BOM ~m 
N ™ N Nm CUCU N 
Fete *e*e*ea*et®e ate te tata *e eta rate tata tartare 
ao 
c 
-_ 
= 
a 
°o 4) a 
c > a 
i w 
ew < pel: 4 
> zs eo awo 
oe oOo wo <zoc 
” _ - wcto 
aF ~~ WA tow 
. YY 2 Ae OB TDM w It 
= =~ = * Be al >ew 
— - = >> = Cs CAY 
[+ <x<« v&Y nWMEYW FHNYND— 
WAAR ARRE ~~ De2D WDD hu 
—- aadacaawn >a swe ee >U 
“— MMW Dwwwde «ee *{—aqwam «+ 
e2ow~~~y Ov Bw} OF er ee BOM 
Bwmeitt te Ret BM NMVBMYNCBR 
> @ | 
aw xc ” 3B ee ee) 
—- J9O00OTIT Yon to writ 
ZOeeeeuvnnwne t1OFeawrOnnn ire 
peti tele ete Ce eeeet t tet tt tee eet 
*MvoVvvuVvAAOAYYOMEVYOEtMaAaacves 
A of ith 
_— ™N La) 
ONO DOOONO f— wh WOModOw~s wm 
QDOOCCOCOO SH MK NICINICIMIMI MIPIM) FT wT 
SOOoooooooooooooocooo°oooo 


SOOOCOCCOCOOCoOooooooooooeo 
COOOSCOCOCOCOCCOCCOCOSCCOOSCCOooo 


OMNVVVUu OOTOOVe- WODQOOOs 
2 SOLA SaaS 


o 


CDOWWWWII es WUIOWOMsOOuuwnm 
OPR-P-P-P- CUI. OMONOOMMNWOO 


So 
N 


00000000° 
00000000' 
000000006 


ow 
Wwe 


SE 
00 
03 
50 
8F 


000000006 
00000878 
000000006 00 


76 bytes, Routine Base: CODE + 0711 


: Routine Size: 


-——-~ Pr ML Scho 
| 
| TAPEUTIL Gegte 
v04-000 WRITE 
3: 1241 0 
2 ) 
; 1Sez Q 
; $0 4 
3 1246 5 
3 1247 6 
> 1248 7 
1536 5335 
5 1584 2340 
1588 $32) 
> 1254 5345 . 
: 1255 2344 
3 1256 2345 
: 1257 2346 
3: 1258 2347 
3; 1259 2348 
; 1260 Seep 
3: 1261 350 
3 1368 2351 
: 1382 $338 
3: 1265 2354 
3 1266 2355 
3: 1267 $328 
: 1268 235 
> 1269 2358 
3; 1270 2359 
3: 1271 2360 
3: 1272 2361 
3: 1273 $306 
3 1274 236 
3 1275 2364 
3: 1276 2365 
s Ver? 2366 
; 1378 $307 
: 1580 339 
: 1382 p 5374 
3 1682 . $378 
: 1285 Pp 2374 
3 12 P 2375 
3: 1287 376 
3: 1288 377 
3; 1289 He 
3: 1290 37 
1593 384 
: 1598 $356 
3 1294 238 


eu 
LABEL = write tape Label 
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(17) 


nn 
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uw 
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ZSBITL ‘WRITE_LABEL = write cae label’ 
GLOBAL ROUTINE WRITE_LABEL (BUFFER) : NOVALUE = 


'o4¢ 

' 

' FUNCTIONAL DESCRIPTION: 

This routine writes a Labei onto the current output tape. 


CALLING SEQUENCE: 
WRITE_LABEL (BUFFER) 


INPUT PARAMETERS: 
BUFFER: address of buffer containing Label to be written 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
LOCA 
TATUS, !_ general status value 
I0_STATUS : VECTOR (4, WORD]; ! 1/0 status block 
EXTERNAL ROUTINE 
FILE_ERROR; ! signal file related error 
STATUS = $Q10W (CHAN = .RWSV_CHAN 
FUNC = 10$_WRITELBLK, 
10SB = 10 STATUS, 
Pi = .BOFFER, 
me = 80 
IF .STATUS THEN STATUS = .10_STATUSCO); 
IF STATUS EQL SS$_ENDOF TAPE 
THEN STATUS = TRUE; 
IF NOT .STATUS 
THEN FILE_ERROR (BACKUPS$_LABELERR, .RWSV_SAVE_FAB, .STATUS); 
END; ! End of routine WRITE_LABEL 


5 YF 


co 
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; Routine Size: 81 bytes, Routine Base: CODE + 075D 
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DATE - Jenerate Julian date in tape labe 12-Sep-19 4 9 98:68 EBACKUP.SRe TAPEUTIL 03951 
g 


ZSBITL "JULIAN_DATE = generate Julian date in tape label 
ROUTINE JULIAN_DATE (BUFFER) : NOVALUE = 


14 
q 
FUNCTIONAL DESCRIPTION: 


This routine paces todays date into the specified 6 byte 
buffer in ANSI Julian date format. 


CALLING SEQUENCE: 

JULIAN _DATE (BUFFER) 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

BUFFER: buffer into which to place date 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
NONE 


. 
' 
. 
‘ 
. 
' 
. 
' 
* 
i] 
. 
' 
. 
' 
. 
' 
* 
! 
. 
' 
. 
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. 
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. 
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. 
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' 
. 
] 
. 
' 
. 
' 
. 
i] 
. 
' 
. 
' 
. 
' 
. 
‘ 
° 
‘ 
* 
te 
. 


BEGIN 
MAP 
BUFFER : REF VECTOR C,BYTE); 
BIND 
DAYTBL = UPLIT WORD(0,31,59,90,120,151,181,212,243,273,304,334,365) 
: VECTOR C, WORDJ; 
LITERAL 
N_YEAR = 0, ! year in time buffer 
N_MONTH = 1, ! month in buffer 
N_DAY = 2; ! day in buffer 
LOCAL ; 
TIME_BUFFER : VECTOR (7, WORD), ! buffer to receive system time 


AY : day of year 
STRING_BUFFER  : VECTOR C7 BYTE], | FAO output string 
STRING DESC : VECTOR (24; ! descriptor for above 


!' Get the system time in numerical format. Then run the month through 
! the table to compute day in year, adjusting for leap year. (Note 
we handle only the 4 year Leap year cycle, The Julian date format 

e 


! will have long crumbled to ashes by the time we see the next 100 


er”. —nnvn—n—nw—wl—l——CCCONlRNMN«.M.Sa&L—_——  - _--_-- COrereoOrorerororr- Oo Oo Soo 


TAPEUTIL e Utility Routines 16 = 1984 01 44 AX-11 Bliss-32 V4.0-74 p 52 
-Sep- 706: ss- 
ret 4 9:68 O-B8351 _ 


v04 DATE = generate Julian date in tape labe 14-Sep-1984 11: BACKUP. SRCJTAPEUTI (18) 
: 1353 441 ! . 

3 $s rf year cycle.) 

: 1355 44 

; i 3$ re} DAY ha TIRE BUFFEREH BAGS oe spiyte. . TIME_BUFFERCN_MONTHJ-1) 
Py = -1); 
: 1358 64 IF aint "BOFEREN. YEAR])<0,2 gaL 3 . - 

: 1359 44 AND . TIME BUF FEREN-MONTH) GfRu 

: : ? met THEN DAY = .DAY + T; 

: 1 : 450 ' Convert to string and put it in the buffer. 

3 1 451 ! 

31 43¢ 

: 1365 45 STRING -pEstta} = = 7; 

; 1366 454 @ STRINGDESCC1] = STRING BUFFER; 

: 24 . eee $FAO ~CEDESCRIPTOR C'!82L!32L"), 

: 1369 P re Sfring DESCCO), 

: 1370 P 2458 ME _BuFFERCN_YEAR), 

3; 1371 P 2459 a. 

: 137@ 460 : 

: 137 2461 BUFFERCO] = ' '; 

; 137% 346 CHSMOVE (5, STRING _BUFFERC2), BUFFERC1}); 

: 1398 2464 1 END; ! End of routine JULIAN_DATE 


0111 OOF3 00D4 0085 0097 0078 005A 0038 O01F 0000 007A P.AAD: .WORD 0, 31, 59, 90, 120, 151, 181, 212, 243, - ; 
O14E 0130 O07¢ 273, $04, 334, 365 : 

34 21 OO7CB P.AAF: ASCII \!42L?3ZL\ : 

00000008 00700 P.AAE: <LONG 8 : 

00000000" 007D4 -ADDRESS P.AAF b 


DAYTBL= P.AAD 
-EXTRN SYSSNUMTIM, SYSS$FAO 


003C 00000 JULIAN.DATE: | 


wo Save R2,R3,R4,R5 > 2385 
SE 20 ¢2 00002 SUBL2 #32, SP : 
7E D4 00005 CLRL = = (SP) + 2644 
14 AE 9F 00007 PUSHAB TIME BUFFER ; 
000000006 00 02 FB OOO0A CALLS #2, SYSSNUMTIM : 
50 12 AE 3C 00011 MOV2WL TIME_BUFFER+2, RO > 2445 
51 AF ¢ 90013 MOVZ2WL TIME-BUFFER+4, R1 F 
50 B7 AF40 3¢ 00019 MOVZWL DAYTBL-2CROJ, DAY ; 
50 51 g S001 ADDL2. R11, DAY ; 
03 10 A 00021 BITS TIME_BUFFER, #3 + 2446 
08 1 900 3 BNEQ 1$ : 
02 12 AE B81 000 CMPW TIME _BUFFER+2, #2 > 2447 
Q 1B 00028 BLEQU 1$ : 
06 99 D INCL DAY > 244 
6E 07 DO 0002F 18: MOVL #7, STRING _DESC > 245 
04 AE 08 AE 9E 00 3 MOVAB STRING_BUFFER, STRING_DESC+4 + 2454 
50 DD 00 PUSHL DAY : 2460 
7E 146 AE 3C 00039 MOVZWL TIME BUFFER, -(SP) ; 
08 AE OF 00 : PUSHAB STRIAG_DESC ; 
7E D4 0004 CLRL = = (SP) ; 


016D 

4C SA 33 21 4C SA 
| 

| 


| tare TIL mer taRe Utility Routines 18-50 -Sep 9-130 91: 06:46 AX-11 Bliss-32 V 0-743 .4 Pope i: 


DATE = generate Julian date in tape labe 14-Sep-1 BACKUP. SRC TAPEUT 3 
B3 AF OF 0004 PUSHAB AE : 
000000006 99 oS F 2004 CALLS Ose SYSSFAO : 
04 AC 00 0004C MOVL BUFFER, RO + 2461 
20 90 00050 MOVE #32, (RO) : 
01 Ad OA 05 28 00053 MOVC3 #5, STRING_BUFFER+2, 1(RO) + 2462. 
04 00059 RET + 26464 


; Routine Size: 90 bytes, Routine Base: CODE + 0708 


DS 
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v04 FO MAT VOLOWNER - format tape volume owner 122868138 ot; 4:08 UBACKUP- SREITAPEUTIL «039: 1 2 (19) 
: 1 78 465 1 XSBTTL_ "FORMAT_VOLOWNER = format tape volume owner’ 
: ! R rh : ROUTINE FORMAT_VOLOWNER (VOL_LABEL, OWNER, PROTECTION) : NOVALUE = 
: 1381 468 1 144 
:1 8¢ 469 1! 
; ; ti rth : FUNCTIONAL DESCRIPTION: 
: 1 85 47 ! This routine formats the volume owner filed in VOI.1 
: 1387 474 1 ' CALLING SEQUENCE: 
$ ; 89 282 \ FORMAT_VOLOWNER (VOL_LABEL, OWNER, PROTECTION) 
: 1390 477 1 1 INPUT PARAMETERS: 
3; 1391 478 1! VOL_LABEL = address of VOL1 Label 
3 1 4 479 1! OWNER = owner of tape 
3: 139 480 1! PROTECTION = tape protection 
3 1394 481 1! 
3; 1395 482 1 ! IMPLICIT INPUTS: 
2 4 485 1! DZC preinitialized 
3 133 484 1! 
3; 1398 485 1 ! OUTPUT PARAMETERS: 
3; 1399 486 1! NONE 
3; 1400 487 1! 
3: 1401 488 1! IMPLICIT OUTPUTS: 
: 140 489 1! NONE 
3: 140 490 1! 
: 1404 491 1°! ROUTINE VALUE: 
3: 1405 $35 1! NONE 
3; 1406 49 1! 
3; 1407 2494 1 ! SIDE EFFECTS: 
; 1408 2495 1! NONE 
3: 1409 2496 1! 
; 1410 2497 1 =! USER ERRORS: 
: 1411 2498 1! NONE 
3 1e18 rte 1! 
3 141 500 1 !-- 
3 1414 2501 1 
3 1613 $208 BEGIN 
: 1a19 3504 MAP 
> 1418 505 VOL _LABEL REF BBLOCK, ! address of VOL1 Label 
: ye 206 PROTECTION BITVECTOR; ! protection to be encoded on tape 
: 1421 508 2 LOCAL 
: i 208 DESCR : VECTOR (2), ! descriptor 
3 14 510 P; ! pointer 
3 ose 511 
3: 1425 216 LITERAL 
3; 14 $ 51 WORLD_WRITE = 13, 
3 14 “18 WORLD_READ = 12, 
3: 1428 15 GROUP_WRITE = 9, 
; 1499 316 GROUP-READ = 8; 
> 1431 318 
3 1036 51 ! First convert binary owner to ASCII 
3 143 269 : 
3 1434 521 
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v04- FORMAT. V OLOWNER - format tape volume owner 12286871 384 9498368 BACKUP. SRC STAPEUTIL 03951 . (19) 
: 1435 ¢ DESCR ee S 
3 14 DESCRL1 Vor _LABELCVL1IST_VOLOWNER) + 3; 
3; 14 P 4 SFAO ( 
: 1438 P 5 SDESCRIPTOR('!5Ow!S0w'), 
: 1439 i § 
3 1440 P DESCRE 
; 1441 3 8 PG NER sie, 16>, .OWNER<0, 16>); 
3 1208 530 ! Now format protection 
ees a3) 5 
: brs 5 i IF NOT .PROTECTIONCGROUP_READ] OR NOT .PROTECTIONCWORLD_READ] 
3: 144 534 THEN 
3: 1448 535 BEGIN 
3: 1449 536 c. = Ay LABEL ‘) $T_VOLOWNER] + 8; 
> 1450 537 0,8> = .(.P)<078> + ('A* = '6*); 
: 1451 538 3 
5 be 539 
3; 145 540 ! Now if group can also write, blank fill member field 
3 1454 541 ' 
3 1455 $2h6 
3: 1456 254 If NOT seores! (e nour WRITE) 
3 + 34 sees THEN CHSFILL(® ',5,VOL_LABELLVL1$T_VOLOWNER] + 8); 
3 1459 2546 IF NOT .PROTECTIONCWORLD_READ) 
: 1460 2547 THEN 
: 1461 $268 pecin, 
: 1462 254 4- L LABELEVL 1ST _VOLOWNER] + 3; 
> 1463 2330 3 bigs = .(.P)<078> + (TA = *O*); 
3: 1464 551 2 3 
3: 1465 $226 2 
3; 1466 55 IF NOT sPROTECTIO ONCWORLD_WRITE) 
: 1467 Soee THEN CHSFILL(* *,10,VOL OPABELEVL1ST _VOLOWNER] + 3); 
3; 1469 2556 1 END; ! end of routine FORMAT_VOLOWNER 
57 4F 35 21 57 GF 35 21 ORFs P.AAH: “Sth!  heaaaehaaats 3 
00000008 G083C P.AAG: .LONG 8 3 
00000000" 00840 ADDRESS P.AAH 3 


QOFC 00000 FORMAT_VOLOWNER: 


0 Save R2,R3,R4,R5,R6,R7 > 2666 
SE 04 ¢2 9002 SUBL2 #4, SP F 
OA DD 0000 PUSHL g $2¢ 
57 04 AC 00 00007 MOVL Yt LABE : 252 
04 AE 38 A? 9E 9008 MOV 40(R?), “bE stRe4 : 
7E 8 AC 3C 0001 MOVZWL OWNE P) : 2528 
7E OA AC 3¢ O014 MOV2WE OWNERS2, -(SP) : 
8 AE 9F 00018 PUSHAB DESCR : 
7E D4 0018 CLRL = (SP) : 
D8 AF OF 00 19 PUSHAB ; 
000000006 00 0S FB 0002 CALLS wenn Syssrao : 


—E 
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v04-000 FORM AY * VOLOWNER - format tape volume owner 14-Sep-19 4 11: 00:38 EBACKUP-SRCITAPEUTIL.3 31 . (19) | 
05 OD aC €9 00027 BLBC PROTECTION+1, 1$ : 2533) 
07 OD ac 04 €E0 000 BBS #4, BROTECTION+1, 2$ : | 

56 2D «A? 3 0030 1$: MOVAR 4 43{R7) : 2536 
AG 11 00 ADDB + 2537 
07 OD ac 4 50 09 7 28: + ROTECT ON+1 + 2543 

05 20 6E - 09 C 005¢ MOVCS oO: (SP), #32, #5, Fa?) + 254 

07 OD ac 04 £0 9045 3$ BBS #4, PROTECTION#1, 4$ + 254 

56 28 «AT 004 MOVAB 40(R7) + 254 

66 11 80 0004C ADDB2  # ( 3 255 

07 OD Ac 05 50 O04F 4$: BBS #5, * PROTECT ON+1 : $3 

OA 20 6E 09 C 0034 MOVCS #0, (SP), #32, Ho? + 0cR7) + 255 

28 OA 0059 : 
04 00058 5$: RET + 255 


; Routine Size: 92 bytes, Routine Base: CODE + 0844 


oy 
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yoneb0o MARE VOL] ~ format VOLT header Label et ae ts ra Seer HYP ota tai Tae age 335 


3 1471 7 1 2SBTTL ‘*MAKE_VOL1 = format VOL1 header Label’ 

3 1048 8 ! GLOBAL ROUTINE MAKE_VOL1 (BUFFER) : NOVALUE = 

3 1474 oy 1 !+¢ 

3 1475 561 1! 

1008 266 } FUNCTIONAL DESCRIPTION: 

3; 1478 64 1! This routine formats a tape volume header Label in the 

; pee 65 : indicated buffer. 

3 1481 209 1 ! CALLING SEQUENCE: 

3 re 444 1! MAKE_VOL1 (BUFFER) 

3; 148 69 1! 

> 1484 570 1 ! INPUT PARAMETERS: 

> 1485 571 1! NONE 

: 1486 276 2% 

3: 1487 sof 1 ! IMPLICIT INPUTS: 

: 1488 574 1! NONE 

3: 1489 2575 1! 

3; 1490 2576 1 ! OUTPUT PARAMETERS: 

3 1491 2577 1! BUFFER: buffer to write label into 

: re 2578 1! 
3 149 579 1°! IMPLICIT OUTPUTS: 
3 1494 580 1! NONE 
3 1495 581 1! 

3; 1496 286 1 ! ROUTINE VALUE: 

3 1497 2583 1! NONE 

3 1498 2584 1! 

3 1499 2585 1 ! SIDE EFFECTS: 

; 1500 $268 . NONE 

3; 1501 587 1! 

; 1208 2588 1 !-- 

3; 150 2589 1 

3: 1504 S2a0 § BEGIN 

3; 1505 591 

3; 1506 S206 2 MAP 

: 1507 2593 2 BUFFER : REF BBLOCK; ! Label buffer arg 

3; 1508 2594 3 

3; 1509 2595 LOCAL 

: 1510 2596 § P : REF BBLOCK, ! structure pointer 

: 131 S20. DESCRIPTOR : VECTOR (2); ! string descriptor for FAO 
; 1318 3599 : Initialize the label buffer and set up the basic volume Label. 

3 1515 260) 

3: 1516 602 CHSFILL (° °, 80, .BUFFER); 

: 1517 2603 BUFFERCVLISL_VLILIDJ = ‘VOL1"; 

3; 1518 604 CH Y 

3 1519 605 -BBLOCKCRWSV_SAVE_FAB 4g tt NAMSB_NAME], 

3 1330 O86 -BBLOCK RWSV_SAVE_FABCFC_NAM], NAMSL_NAME], 

3 1256 O38 VL1$S_VOLLBL, BUFFERCVL1$T_VOLLBLJ); 

3 1524 610 ! If an explicit label was specified, get it. Use the segment number 
3: 1525 611 ! to pick the right entry from the label List. If we are out of List, 
3 1366 soig } use the first entry and append the reel number. 
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voe=000 MARE VOLT = formate or1o8e $1; t - 


EL = format VOL1 header Label 14-Sep-1984 11:54:08 BACKUP. SRCJTAPEUTIL.832;1 (20) 
; 1528 614 
; 12 9 615 P= 0; 
: 3 0 $16 IF .QUALCQUAL_LABE] 
: 1531 61 THEN 
3; 15 ¢ $18 BEGIN 
3; 15 61 P = .,QUALCQUAL_LABE LIST]; 
; 13 6 9 DECR J FROM .ROSV_VOL_NUMBER-1 TO 1 
3 1536 6 ¢ 4 BEGIN 
3 1537 623 4 P = sPLQUAL NEXT: 
3 1538 626 4 IF .P EQL O THEN EXITLOOP; 
3; 1539 625 END; 
; 1340 r IF .P NEQ 0 
3; 1541 627 THEN CHSMOVE (VL1$S_VOLLBL, te gett VALUE], BUFFERCVL1$T_VOLLBLJ) 
: 1366 3099 ELSE CHSMOVE (VLISS_VOLLBL, BBLOCK C.QUALCQUAL_LABE_LISTJ, QOAL_LABE_VALUE], BUFFERCVL1$T_VOLLBLJ); 
2 1544 630 3 ; 
; 1545 $63 : Append the save set volume number to the volume label if this is a 
3: 1546 $038 § ! continuation volume and an explicit Label was not available. 
3 15467 263 ! 
3 1548 2634 § 
: 1233 2635 IF .RWSV_VOL_NUMBER GTRU 1 
; 1550 $636 2 AND .P EGL 0 
3 1551 637 TH 
; 1328 2638 BEGIN 
3; 155 2639 INCR J FROM 0 TO VL1$S_VOLLBL-2-1 
3 1554 soe0 3 0 
3; 1555 2641 4 BEGIN 
3; 1556 $Oe§ 4 IF .VECTOR CBUFFERCVL1$T_VOLLBLJ, .J; VL1$S_VOLLBL, BYTE] EQL * ° 
: 1357 3645 4 THEN VECTOR CBUFFERCVL1$T_VOLLBLS, .J; VLISS_VOLLBL, BYTE] = '_’; 
3 1559 2645 H DESCRIPTOREO} = 2; 
3; 1560 2646 DESCRIPTORLC1) = BUFFERCVLIST_VOLLBL) + VL1$S_VOLLBL - 2; 
3 1561 P 2647 SFAO ($SDESCRIPTOR (°!27L'), 
3 1206 P 2648 
: 156 P 2649 3 DESCRIPTORO), 
3 1564 P 2650 3 -RWSV_VOL_NUMBER 
3 1565 2651 3 ); 
3; 1566 O36 § END; 
; 1567 65 E 
: 1368 O38 : For the first volume, save the volume Label as the file set ID. 
: 4370 He IF .RWSV_VOL_NUMBER LEQU 1 
: 1376 $028 THEN CHSMOVE™ (HD1SS_FILESETID, BUFFERCVL1ST_VOLLBL], RWSV_FILESET_ID); 
3 1574 660 ! FILL in the remaining fixed fields. 
3 1575 661 ! 
3; 1576 O66 
3; 1577 66 cour reRc yt ist VOLOWNER Pe = "DZC°; 
3; 1578 664 apd 4 $B_BECSTDVER) = ‘1'; 
: 1327 665 BUFFERLCVLISB_LBLSTDVER) = °3'; 
: 1581 66 ! If ownership and protection are specified, fill in the fields in 
3 1286 668 ' the label. 
3; 158 669 ! 
3 1584 670 


TAPEUTIL Magtape Utility Routines 
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AX-11 Bliss-32 V4.0-74 
MAKE _ = format VOL1 header Label f ¢ 076331 


BACKUP. SRCJTAPEUT 


IF .QUALCQUAL_PROT] 
THEN FORMAT_VOLOWNER (.BUFFER, 

F pOUAL CQUAL 0_OWN vic) THEN .QUALCQUAL_O_OWN_VALUJ ELSE .JPI_UIC, 
-QUALCQUAL_PROT-VALOEJ); 


! End of routine MAKE_VOL1 


4C SA 32 21 OOBAO P.AAJ: .ASCII \!22L\ 
00000004 O0BA4 P-AAL: .LON 
00000000" 008A8 [ADDRESS P.AAJ 
O3FC 00000 eENTRY MAKE_VOL1, Save R2,R3,R4,R5,R6,R7,R8B,R9 
59 00000000" EF i 00002 MOVAB RWSV-VOL_NUMBER, R9 
SE 08 C2 00009 SUBL2 #8, SP 
57 04 aC 00 0000C MOVL. BUFFER, R7 
6E 09 2c 90019 MOVCS #0, (SP), #32, #80, (R7) 
67 314C4F56 =8F D0 00018 MOVL § #827084630, (R7) 
50 0c AY DO OOOTF MOVL RWSV_SAVE_FAB, RO 
51 OOCF CO 9A 00023 MOVZBL 207(RO), Ri 
oR 04 A? 9E 00028 MOVAB 4(R7), R 
00EO 00 51 2¢ 900¢¢ MOVCS R1, @224(RO), #32, #6, (RB) 
68 00033 
56 D4 00034 CLRL oP 
6A Ad 95 00036 TSTB © QUAL+10 
25 18 00039 BGEQ 
50 0080 ¢9 DO 0003B MOVL QUAL+80, RO 
t4 50 b0 00040 MOVL | 
51 69 3C 00043 MOVZWL RWSV_VOL_NUMBER, J 
05 11 00046 BRB 2$ 
Se 66 09 00048 1$ MOVL (P), P 
“03 13 00048 BEQL 3S 
F8 51 F5 0004p a8: SOBGTR J, 1$ 
56 D5 00050 3$: mi - 
07 13 00052 BEQL 4$ 
04 Ab 06 é 90054 MOVC3 #6, 4(P), (RB) 
05 11 00059 BRB 
04 AO 06 28 0005B 4$: MOVC3 #6, 4(RO), (RB) 
01 9 81 00060 5$: CMPW  RWSV_VOL_NUMBER, #1 
0 0006 BLEQU 8$ 
D5 0006 TSTL =P 
ec 1 90067 BNEG 8S 
0 ps 0069 CLRL J 
20 6048 91 00068 6$: CMPB 0s (J) (RBI, #32 
5 1 O06F BNEQ $ 
6048 SF BF 6-90 (00071 MOVB #95, (J)CR8) 
50 F3 00076 7$: AOBLEQ #3, J, 6$ 
6E O7A MOVL #2. DESCRIPTOR 
04 AE 08 A? 9E 0007 MOVAB 8(R7), DESCRIPTOR+4 
7E 69 3C 0008 MOVZWL RWSV_VOL_NUMBER, -(SP 
06 AE OF PUSHAB DESCRIPT 
7E p4 0 CLRL = = (SP) 
FF6A CF F OOO8A PUSHAB P.AAI 
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TAPEUTIL Magtape Utility Routin 
vO4=000 MAKE “Hout format VOL 


000000006 60 


EC Ag 
25. A? 18 


; Routine Size: 210 bytes, 


s 
: header Label 


68 
00 00432544 
A? 


0084 
00A0 
FF34 


CODE + O8AC 


OVUM QDOMONOWIWDOOGO 
WUNOLS OF OWS MOunos 
ono o-OCMWMoOOTNN—Own 
ooo —9 |] 2 O00 r—-w 


SOOCCooooQooooooooo 


fodenet9t 


4 
4 


R068 Fe xcnde SAEs Tabet 107853, 1 


#4, SYSSFAO 
Rsv. VOL_NUMBER, #1 


RB), RWSV_FILESET_ID 
fesodas2: fo. #24, $5inb) 
#49, 
8 (A?) 
A -(§P) 
#4, QUAL+12, 10$ 
QUAL +64 
11$ 
JPI utc 
#3, FORMAT_VOLOWNER 


BeBe Ge Se Ge Ge Se Ge Se Ge Be Se Ge Fe Be Se 


| ore at Magtape Utility Routines 
v04= MAKE_HDR1 = format HDR1 header Label 


1 
1 BACKUP.SRCJTAPEUTIL.B (21) 
ZSBITL "MAKE_HDR1 = format HDR1 header 


14 
-$ep-1984 01:06:44 AX-11 Bliss-32 V4.0-74 Page 61 
geen obs Siiseios O85: 1 9 
(° 


; 1338 677 1 e 

; 159 ore 1 GLOBAL ROUTINE MAKE_HDR1 (BUFFER) : NOVALUE 

3; 1594 679 1 

3; 1595 2680 1 !+4 

; 1596 2681 1! 

; 1597 et) 1 ! FUNCTIONAL DESCRIPTION: 

3; 1598 683 1! : . 

; 1599 684 1! This routine formats a tape file header label 1 in the 
; 1600 685 1! indicated buffer. 

: 1601 2686 1! 

H Ione 2687 1 ! CALLING SEQUENCE: 

> 160 3688 1! MAKE_HDR1 (BUFFER) 

3 1604 689 1! 

3: 1605 2690 1 ! INPUT PARAMETERS: 

: 1606 2691 1! NONE 

3; 1607 324 7% 

3; 1608 69 1 ! IMPLICIT INPUTS: 

3; 1609 2694 1! NONE 

3; 1610 2695 1! 

3; 1611 2696 1 ! OUTPUT PARAMETERS: 

3 1612 2697 1! BUFFER: buffer to write label into 

3: 1613 2698 1! 

3 1614 2699 1 ! IMPLICIT OUTPUTS: 

3 1615 2700 1! NONE 

3 1616 2701 1! 

3 1617 270 1 ! ROUTINE VALUE: 

3 1618 270 1! NONE 

: 1619 2704 1! 

: 1620 2705 1 ! SIDE EFFECTS: 

: 1621 2706 1! NONE 

3 1622 e707 1! 

3: 1623 2708 1 !-- 

3 1624 2709 1 

: 1625 2710 2 BEGIN 

3 1626 2711 2 

: 1627 2712 2 MAP 

: 1628 27135 2 BUFFER : REF BBLOCK; ! Label buffer arg 

. tog? 2714 2 

3: 1630 2715 2 BIND 

: 16s) a § PROTO_HDR1 = UPLIT BYTE ('000100 00000 00000 O00000DECVMSBACKUP "}y 
3: 1633 2718 2 LOCAL , ¢ 

5 10% tah 2 DESCRIPTOR : VECTOR [2]; ! string descriptor for FAO 
3; 1636 sist $ BUFFERCHDI$L_HDILID] = ‘HDR1'; 

3: 1637 $7s¢ CHSCOPY (.COM ry 14 24 LENGTH], 

: 1638 272 . COM_SSNAME DSCSA_POINTER], 

3: 1639 2724 -* 

: 1640 2725 2 HD1$S_FILEID, 

3 1641 2726 § BUFFERCHDI$T _FILEID)); 

3 1642 2727 CHSMOVE (HD1$S_FILESETID, RWSV_FILESET_ID, BUFFERCHDIST FILESETIDJ); 
; yo $768 CHSMOVE (80-S$BYTEOFFSET (HD1$T_GENNO), PROTO_HDR1, BUF FERCHD1$T_GENNO)); 
: Hy ob $780 : Generate file section number, sequence number, and creation date. 
3 1647 3732 

: 1648 273 DESCRIPTOR(O) = 4; 
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14 
agtape Utility Routine 1b-$e -1984 01:06:44 Ax-11 Bi ies =32 v4.0-74 Pa 
mare “ADR = lefeot VADRI “neoder Label 12-8 08- 1 3b 9198 G8 BACKUP. SRC} TAPEUTIL.B32;1 9 294 
734 2 DES CRIPTORE1] = BUFFERCHDI$T ~F ILESECNO); 
g 5 2 SFA (SDESCRIPTOR (''62L' 
7 5 DESCRIPTORCO 
, 8 RWSV_VOL_NUMBER 
740 2 DESC maprideys BUF FERCHD1$T_F ILESEQNO]; 
4 $FAO  ($DESCRIPTOR ('!47L')? 
ak DESCRIPTORCO), 
oe sRUSV, FILE_NUMBER 
746 ; JULIAN pate (BUF FERCHD1$T_CREATEDT)); 
748 1 END; ! End of routine MAKE_HDR1 
0 30 30 30 20 30 30 31 30 30 30 QO97E P.AAK: ASCII 000100 00000 00000 O00000DECVMsBACKUP \ ; 
4 30 30 30 30 30 3¢ 20 30 30 35 0098D ; 
20 20 20 50 55 48 43 41 42 53 0099¢ ; 
20 20 20 é 20 009A6 <ASCII \ \ : 
4C 5A 34 21 OO9AB P.AAM: <ASCII \!42ZL\ F 
OO9AF “BLKB. 1 
00000004 00980 P.AAL: <LONG 4 : 
00000000" 00984 “ADDRESS P.AAM : 
4C SA 34 21 O09BB8 P.AAO: <ASCIT \!42L\ : 
00000004 O09BC P.AAN: .LONG 4 : 
00000000' 009c¢0 -ADDRESS P.AAO ; 
PROTO_HDR1= P.AAK 
03FC 00000 .ENTRY MAKE_HDR1, Save R2,R3,R4,R5,R6,R7,R8,R9 : 2678 
59 000000006 00 9E 00002 MOVAB  SYS$FAO, ; 
58 AE AF 9E 00009 MOVAB PROTO_HDR1, R8 ; 
57 00000000" EF 9E 0000D MOVAB COM_SSNAME, R : 
5E 08 C3 00014 SUBL2 8, mi ; 
56 04 AC DO 00017 MOVL : 2721 
66 31524448 8F DO 00018 MOVL ALO (R6) : 
20 04 87 ve 67 2¢ 9002 MOVCS COM_SSNAME. @COM_SSNAME+4, #32, #17, 4(R6) : 2726. 
15 Ab FFIC C7 06 28 0002A MOVC3 #6 Rwsy PILESET. D, 21(R6) : 2727 
23, =A 3.) 2p 2 999 1 MOVC3 #45, PROTO 5 (R6) : 78 
6 4 DO 000 MOVL a DESER RIPTO 5" : 27 
04 AE 1B Ab 9E 00039 MOVAB 27(R6), DESCRIPTOR+4 > 2734 
7E FF30 «C73 00055 MOVZWL RWSV_VOL_NUMBER, -(SP) : 2739 
04 AE 9F 0004 PUSHAB DESC CRIP TOR F 
7E 04 00046 LRL 5 (SP) : 
32 AB OOF 00048 PUSHAB pA : 
69 04 FB 00048 CALLS YSS$FAO ; 
06 AE 1F AG 9E O06 MOVAB ais DESCRIPTOR+4 3 2740 
FF34 C7 OD 005 PUSHL RWSV_FILE NUMBER 3 2745 
04 AE 9F 00057 PUSHAB DESCRIP OR ; 
7E 04 O005A CLRL = (SP) ; 
3E =6AB «OOF 0005C PUSHAB PA ; 
69 04 FB 0005F CALLS i AS YSSFAO ; 


--- 


VAre yt ht mage RORY = tor Routines 1b-Sep-19 4 2 94308 6:44 AX-11 Bliss-32 V fit, o35.4 Pope 8; 


= format HDR1 header Label 14-Sep-1984 4:08 BACKUP. SRC TAPEUT IL.83 
29 «=A6 OOF 0006 PUSHAB 41(R6) 3; 2746 
FDAA CF 01 FB 0006 CALLS #1, JULIAN_DATE é 
04 0006A RET ; 2748 


; Routine Size: 107 bytes, Routine Base: CODE + 09C4 
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DR2 = format HDR2 header Label 


MARE. 


a 


¢ 
<> 
r-> 


. 
a ° 
<= ww 
~ a 
- 
c o . 
ope Pr 
& @ 
™N wv 
‘= ao] 
~ wo 
a - o 
2a = c 
ae = a 
= 2a = 
es 
. ~ w 
a Cy bled 
- ao] 2 oO 2 
~ @ so 4 ee) 
@w aw ~ o a 
2a> = o v 
eo. rr -- -- w 
et a c a 
> ~~ - tee 
to te wn 
az we _—) oe ee Az 
wo a bY 4 Cm] Nw 
@-- wv 2 vu N ow 
@ a bo) oO a =u 
om o — pe vw 
a ra) @ a -~Oon 
Mu a @ Oo —_e bg 
ecu @ cd tee ereZOn~ re ee 
au - “_ Cs) erow tJ wu ad 
za Ww i w w Nw eS 25> Zee 
@ ~ zs < > eae ww a -- 
Seed oo ~ -~2 UNwe <z< oS 
@ bed e- a °o a ot =e=rnoaw >> no 
ew z =< w we Wwe —x=-- ‘oe ° 
=. 4 ow “ — mmdit- pers) Le | 
oa _— u . ate x&w~ oO tt 
-= om ee = rT) — mw mJ < 
a a es @ oo ODrze#uac o@gaa —e—O 
tw —- CO -— OMe «+ *aacnuuO ww 1 t zu 
pv 4 en w “” a es; “” a —OaDF- «J wu 
ve v #D VeN ” wo oO Ju roa ode zo 
cz ” 3Se¢° 220 w om - -_ oa - omw — -—§ a> au 
a w Of wa f& =) we & w * a eownnag aca oa 
zw QoQ +68 Dx w a - Sr on > ” a — =a eo =the uO 
ce ,v ot 3 2a w D> al ~ w « . | mrem Sia ‘6 
Lee a Wwe ww ww &ue oO <qw wow re ve - JjJDOnr-w vast ss 
~<e <i - 0 YM &Z 2 <u >= waz “ ” AAWYW “D> A 
<=> 2 £c = zo rf OO AD & uO | w = VN wads. cu 
zo orer ast Zz Oresz we wz @ Qa ~aanoow~oa :- «=~ saa 
- <= ool za Vv be vw za w =rtee == 
a a - oo = = — Jit. ar) 
4 =) I > =) a ad i w aay. 4: 4 led a oe 
-—< 2 ad s a - a =] rr" za — ome 0 A Ge Ce rveyry) 
ay — ] < = = = oO — a x weuuwvuoed rare 
@ >- v _ _ oO _ < ” t oOo a ve Auuwnindg oo 
3 + ;' ww = o zDD wwe — | 
PG eee eee @w J VvOaDooe @oom 


DPOKMITNOR- DP O— MUM TNOR. DHOOM CUM TM OR. 00 NMTMOR. DKOK MUM TNOR-DOOK—UM TN 
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Dc cel ce el el ee ce el ce cel ee cee ee el ce el ec ce ee el ad el eel el ol cel el el ol ool cel 


PRO HR He HRS HS He FEES FS FS HS FSS FS OS FS OSES FS FS OSS FS SORES SSS HES STS ESE TS FOSS TS FSFE FS FSS *S FS TS FS HS FS *S SR FRR *S 
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TAPEUTIL Magtape Utility Routines 16-Sep-1984 01:06:44 AX-11 Bliss-32 v4.0-74 Pp 5 
v04 MARE ROR? - format HDRS header Label 1e-8ep-19 4 91:90:65 EBACKUP SRE TAPEUTIL 03951 age 25} 
; 1722 2806 1 END; ! End of routine MAKE_HDR2 
29 4C SA 35 28 32 21 OA F P.AAQ: .ASCII \!2¢52L)\ : 
A -BLKB 
0000007 00A38 P.AAP: ‘LONG : 
00000' O0A3C -ADDRESS P.AAQ : 
OOFC 000 -ENTRY MAKE_HDR2, Save R2,R3.R4,R5,R6,R7 : 2750 
57 00000000" FF 9 00009 WOVAB QUAL?72, 7 a8 
SE 8 C2 0000 SUBL2 #8, S : 
86 06 AC D 9090¢ MOVL BUFFER R6 + 2791 
0050 = 8F 20 6E 00 2c 9019 MOVCS #0, (SP), #32, #80, (R6) : 
66 32524448 8F D0 $0018 MOVL  #8644252232, (R6) + 279 
04 Ab 46 BF 90 OOOTF MOVB 0, 4(R6) + 279 
6E OA DO 00024 MOVL #10. DESCRIPTOR + 2794. 
04 AE 05 A6 9E 00027 MOV 5(R6), DESCRIPTOR+4 : 2795 
7£ 67 3¢ 9008¢ MOVZWL QUAL4+72, -(SP) + 2801 
7E 67 3¢ O0¢F MOVZ2WL QUAL4+72. <(SP) : 
08 AE 9F 00032 PUSHAB DESCRIPT 3 
7E D4 00035 CLRL = (SP) ; 
BE AF 9F 00037 PUSHAB P.AAP : 
000000006 00 05 FB 0003A CALLS #5, SYSSFAO ; 
24 Ab 4D 8F 90 00041 MOVB #77, 36(R6) : 2803 
32 A 3030 8F BO 00046 MOVW #12336, 50(R6) 3 2804 
04 0004¢ RET : 2806 
; Routine Size: 77 bytes, Routine Base: CODE + 0A40 
5 1723 2807 1 
: 1724 2808 1 END 
: 1725 2809 0 ELUDOM 
.EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: COMMON 31 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR.NOPIC ALIGN(2) 
> CODE 701 NOVEC,NOWRT, RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) 


Library Statistics 


: ci ee Ns 5 ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
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TAPEUTIL Magtape Utility Routines “Blan 1984 01:06:44 AX-11 Bliss-32 V4.0-74 Pa 
voeb00 MARE ROR? - format HDRS header Label 1a-8ep 21982 it 06: :08 BACKUP. SRCJTAPEUTIL "633.1 9 288 


: _$255$DUA28:(SYSLIBILIB.L32;1 18619 ag 0 1000 00:01.7 
; COMMAND QUALIFIERS 
é BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: TAPEUTIL/OBJ=OBJ$: TAPEUTIL MSRC$: TAPEUTIL/UPDATE=(ENH$: TAPEUTIL) 


: Size: 2495 toge + 2330 data bytes 
Ti 00:54.7 


3 | Elaseed Time: 03:21.2 
3 Lines/CPU Min: 30 

: ‘cmeeney Sok a 30074 

: pone | Used: 315 pages 
3 3 


; Compilation Complete 


== 
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